Diagramm kopieren
30.10.2004 10:05:36
Rolf
ich habe in einer Tabelle mehrere Diagramme die übereinander gestappelt sind und ausgeblendet sind. Je nach Bedarf wird ein Diagramm eingeblendet. Über eine Schaltfläche möchte ich immer das sichtbare Diagramm in die Zwischenablage kopieren.
Wie muß fogendes Makro geändert werden, daß immer das eingeblendete Diagramm kopiert wird.
Sub Schaltfläche1050_BeiKlick()
'Hier wird das "Diagramm 1035" kopiert dieses ist z.B. nicht das sichbare
ActiveSheet.ChartObjects("Diagramm 1035").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
ActiveWindow.Visible = False
End Sub
Vielen Dank im voraus
Rolf
Anzeige