Rahmen eines Diagrammes wegmachen
29.08.2016 11:52:49
volti
ich erstelle für den Export eines Bildschirmausschnittes in eine externe Bilddatei zunächst ein leeres Diagrammobjekt, um hier das Bild einzufügen. Alles funktioniert hervorragend. Mich stört allerdings der automatisch erzeugte Rahmen um das Bild bzw. um das leere Diagrammobjekt.
Ich verwende folgenden Code zum Eliminieren des Rahmens, der keinen Fehler erzeugt aber auch nicht den Rahmen wegmacht.
.Parent.ShapeRange.Line.Visible = False
Hier noch das gesamte Makro als Zusatzinfo:
Sub Mail_ExportBildErstellen()
Dim Obj As Object
Set Obj = ThisWorkbook.Sheets("O33").Range("$A$1:$AI$24")
Obj.CopyPicture Appearance:=xlScreen, Format:=xlPicture
With ActiveSheet.ChartObjects.Add(0, 0, Obj.Width, Obj.Height).Chart
.Parent.ShapeRange.Line.Visible = False
.Paste
.Export ThisWorkbook.Path & "\MyBild.png", FilterName:="PNG"
.Parent.Delete
End With
End Sub
Hat jemand eine Ahnung, warum das nicht funktioniert? Manuell kann ich den Rahmen ausblenden. Auch kann ich z.B. den Hintergrund des Diagramms per VBA einfärben, Zugriff ist also möglich.
viele Grüße
Karl-Heinz
Anzeige