Office: erstellte Diagramme drucken

Hallo,

ich bin was VBA angeht leider ein absoluter Neuling.

Ich habe folgendes Problem.

Und zwar hab ich ein Tabellenblatt mit mehreren CommandButtons. Hinter diesen Buttons ist jeweils ein Makro hinterlegt, welches ein Diagramm erstellt.

Jetzt würde ich gerne einen weiteren CommandButton erstellen, welcher es ermöglicht diese Diagramme zu drucken. Ich möchte allerdings nur die Diagramme drucken, weshalb ich das Diagramm erst auswählen muss um es zu drucken.

Sprich gehe ich einfach so auf den Druckenbutton in der Menüleiste werden mir z.B. alle Commandbuttons und was sonst auf der Seite ist mit ausgedruckt. Ist das Diagramm aus-gewählt wird nur das Diagramm, schön über eine DinA4 Seite verteilt ausgedruckt.

Leider bekomme ich die Diagramme nicht angesteuert, da diese beim erstellen immer ei-nen neuen Namen bekommen. Hierbei wird wohl hoch gezählt. Sprich das erste erstellte Diagramm lautet „Diagramm1“, das zweite „Diagramm2“ usw.

Kennt jemand eine Lösung für dieses Problem?

Das entweder schon bei der Erstellung der Diagramme ein fester Name vergeben wird oder aber, dass immer automatisch das zuletzt erstellte Diagramm markiert und ausge-druckt wird.

Vielen Dank für eure Hilfe!

P.S. nutze Ecxel 2003

:)

 

Hi,

ein eingebettetes Diagramm kann man so ansprechen:

Code:

 

Hi vielen Dank für die Hilfe! Ich bekomme es aber nicht so ganz hin.

Also damit macht er genau das was ich möchte:

ActiveSheet.ChartObjects("Diagramm 154").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Windows("xxx.xls").Activate
Range("H9").Select

er wählt das Diagramm aus und druckt es

ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Windows("Kassenkredite_1_10_07_12.xls").Activate
Range("H9").Select

damit allerdings nicht, dass heißt ich stelle gerade fest, dass er es doch macht, wenn ich das Makro (drucken) laufen lassen. Wenn ich es aber über den Command Button laufen lasse druckt er alles. Warum?

Hab den Inhalt des Makros so kopiert aber auch mit

Sub
Call drucken
End Sub

oder mit Application.Run drucken

keinen Unterschied. Warum?

 

So jetzt merke ich aber gerade, dass er immer die gleiche Grafik ausdruckt.

Sprich wenn ich eine neue Grafik erstelle erstellt er diese über der alten (bekomme die alte Grafik nicht gelöscht) und somit druckt er mit dem Makro auch nur immer die zuerst erstellte Grafik aus.

 

Hi,

mit dieser einen Codezeile wird immer das zuletzt erstellte Diagramm gedruckt:
Code: