Grafik aus Userform in Zwischenablage
17.09.2003 22:11:35
Markus
ich häng da etwas fest :(
In einem Userform zeige ich Diagramme, die ich zuvor als GIF exportiert habe als Grafik an. Nun hat mein Userform auch schon ein Kopier-Button und ich will das gerade angezeigte Image in die Zwischenablage kopieren um sie dann in Word etc. weiterzuverarbeiten. Wie kann ich auf das gladene Image zugreifen?
Danke schon mal für Euere Hilfe!
Gruß Markus
------------------------------------------------------------
Bisheriger Code:
Private Sub UserForm_Initialize()
i = 1
updatechart
End Sub
'vorherige Grafik
Private Sub CommandButton1_Click()
i = i - 1
updatechart
End Sub
'nächste Grafik
Private Sub CommandButton2_Click()
i = i + 1
updatechart
End Sub
'Beenden
Private Sub CommandButton3_Click()
Unload Me
End Sub
Private Sub updatechart()
Call AUS
Dim pfad1, größe1, test
pfad1 = ThisWorkbook.Path
größe1 = 0
If i > Worksheets("grafik").ChartObjects.Count Then i = 1
If i = 0 Then i = Worksheets("grafik").ChartObjects.Count
Set currentchart = Worksheets("grafik").ChartObjects(i).Chart
name = ThisWorkbook.Path & Application.PathSeparator & "Anzeigen.gif"
currentchart.Export Filename:=name, FilterName:="GIF"
'Verhindern, dass Excel schneller ist als die liebe Festplatte !!!
Do While größe1 <= 1
größe1 = FileLen(pfad1 & "\Anzeigen.gif")
Loop
Image.Picture = LoadPicture(name)
Kill name
Call AN
End Sub