Office: Excel VBA - Herausforderungen beim speichern von Charts als Datei

Hallo,

ich möchte gerne mit folgendem Code Charts als Datei speichern:

Das klappt auch alles sehr schön in Excel 2007. Aber mit Excel 2010 musste ich die Dimension vergrößern ( + 4 ) und habe jetzt an der rechten und unteren Seite das Problem, dass ich dort eine Linie (vermutlich von einem Rahmen) habe. Hat jemand schon einmal ähnliche Probleme gehabt? Wie kann ich den Rand hinterher wieder weg nehmen?

Vielen Dank,
Vanessa

 

Hi Vanessa,

dieser Rahmen entsteht beim Erstellen des Diagramms, den Excel2010 automatisch um die Diagrammfläche zeichnet. Nach diesem Prinzip sollte es ohne Probleme gehen:

Code:

Sub BildExport()
    Dim chrDia As ChartObject
    Dim shaBild As Shape
    Application.ScreenUpdating = False
    Set shaBild = ActiveSheet.Shapes(1)
    shaBild.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    Set chrDia = ActiveSheet.ChartObjects.Add(0, 0, shaBild.Width, shaBild.Height)
    With chrDia.Chart
        .Parent.ShapeRange.Line.Visible = msoFalse
        .Paste
        .Export Filename:="D:\Test\Beispiel.jpg", FilterName:="JPG"
    End With
    chrDia.Delete
    Set chrDia = Nothing
    Set shaBild = Nothing
    Application.ScreenUpdating = True
End Sub

Bis später,
Karin

 

Hallo Karin (mit bis später hattest du also auch schon einmal Recht :-),

vielen Dank für den Tipp. Leider bekomme ich so die Meldung, dass "Die angegebene Dimension ist ungültig für den aktuellen Diagrammtyp.", sobald er versucht den Export zu machen.

Hast du vielleicht noch eine Idee?

Danke, Vanessa

 

Hi Vanessa,

hast du meinen Code komplett verwendet? Bei mir tritt kein Fehler auf. Oder hast du Teile aus deinem eingebaut? Falls ja, würde ich annehmen, der Fehler rührt daher, dass du mit Right(fullPath, 3) als FilterName (= Dateiendung) die letzten 3 Zeichen der aktiven Arbeitsmappe ermittelst. Als FilterName muss aber die Dateiendung für das zu speichernde Bild angegeben werden.

Bis später,
Karin

 

Hallo Karin,

ich hatte nur einen Teil des Codes übernommen, aber das war nicht das Problem. Es lag daran, dass mir jemand die Berechtigung auf das Verzeichnis genommen hatte. Bei der Fehlermeldung wäre ich normalerweise nie drauf gekommen.

Danke, Vanessa