Guten Tag zusammen :)
Ich bin gerade ein wenig verblüfft: wenn ich ein Makro Schritt für Schritt ausführe (F8) wird das erwartete Ergebnis (Bild exportieren) ausgeführt aber wenn ich das Makro per Tastenkombination starten möchte, wird nur ein leeres Bild erzeugt.
Hier die verwendete Befehle:
Sub BilderExportierenShape()
Dim shBild As Shape
Set shBild = ActiveSheet.Shapes(1)
BildExportShape shBild
Set shBild = Nothing
UserForm1.Show
End Sub
Sub BildExportShape(shExport As Shape)
Dim chDiagramm As ChartObject
Application.ScreenUpdating = False
shExport.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set chDiagramm = ActiveSheet.ChartObjects.Add(0, 0, shExport.Width, shExport.Height)
With chDiagramm.Chart
.Paste
.Export Filename:="P:\TEST\temp.jpg", FilterName:="JPG"
End With
chDiagramm.Delete
Set chDiagramm = Nothing
Set shExport = Nothing
Application.ScreenUpdating = True
End Sub
Woran könnte dies liegen?
Vielen Dank für eure Hilfe!
Beste Grüße, Stefan
|