mein Problem ist folgendes: Ich habe ein Addin geschrieben, dass ein zuvor ausgewähltes Chart erst vergrößert und dann als .gif exportiert.
Das funktioniert soweit ganz gut, nur werden bei der Größenänderung des Charts die Schriftgrößen im Chart nicht angepasst. Außerdem bleiben die Linienstärken dieselben, die Legende auch. Wie kann dies automatisch angepasst werden?
Als Ergebnis hätte ich am liebsten, dass das Chart so exportiert wird, wie es aussieht, wenn ich nah heranzoome. Da wird alles automatisch angepasst und skaliert.
Momentan sieht der Code folgendermaßen aus, ich bin über jede Hilfe dankbar!
Grüße,
Paul
Function GetActiveWorkbook() As String
GetActiveWorkbook = ActiveWorkbook.Name 'Aktives Workbook für spätere Dateibezeichnung
End Function
Function GetActiveChart() As String
GetActiveChart = ActiveChart.Name 'Markierter Chartname für spätere _
Dateibezeichnung
End Function
Sub exportchart()
Dim mychart As Chart 'Festlegung der Variablen
Dim ratio As Single
Set mychart = ActiveChart
With ActiveChart.Parent
ratio = (.Height / .Width) 'ursprüngliches Seitenverhältnis
.Height = 900 'selbst festgelegte Höhe
.Width = (900 / ratio) 'Breite im richtigen Seitenverältnis
End With
Fname = "C:\temp" & "\" & GetActiveChart & "_" & GetActiveWorkbook & ".gif"
mychart.export Filename:=Fname, FilterName:="GIF" 'Filename und Speicherpfad werden _
festgelegt. Fname ist änderbar!!
End Sub