Hallo!
Hier ein kleiner Ausschnitt aus meinem Code! Ich versuche mein Diagramm vor dem Export etwas kleiner zu machen, da das Diagramm nicht in mein imgForm passt, immer zu groß ist! Wie kann ich das Diagramm anpassen, damit es in mein imgForm passt?
Set cht = Charts.Add
Application.ScreenUpdating = False
cht.SetSourceData Source:=Sheets("Diagrammdaten").Range("A1:E5"), PlotBy:=xlRows
cht.Shapes.ScaleWidth 2, msoFalse, msoScaleFromTopLeft ----- hier kommt Fehler
cht.Shapes.ScaleHeight 2, msoFalse, msoScaleFromTopLeft ----- hier kommt Fehler
cht.Export "test.gif"
With frmChart.imgChart
.Picture = LoadPicture("test.gif")
'.AutoSize = True
End With
frmChart.Show
Kill "test.gif"
Application.DisplayAlerts = False
cht.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Danke im Voraus!
MFG Monty