Obj-Einstellung Größe nicht mit Diagramm verändern
10.04.2014 19:29:46
JoKu
Bei den Excel-Objekten/Charts unter "Form formatieren" gibt es unter Eigenschaften die Einstellung "Größe mit Diagramm verändern" und "Größe nicht mit Diagramm verändern"
Wie nutze ich die jeweilige Einstellung im VBA Code?
Hintergrund:
Ich habe ein Bild in einer Shape eingefügt und gekürzt (Crop).
Anschließend muss ich die Shape anpassen.
Als Standard ist "Größe mit Diagramm verändern" ausgewählt und er verändert durch die Shape-Einstellung das Bild, dass dadurch verzerrt
Bei "Stop" gehe ich jetzt hin und ändere die Option. Anschließend kann das Makro sauber weiterlaufen.
' Unteren Teil abschneiden
ActiveChart.Shapes.Range(Array("chart")).Select
Selection.ShapeRange.PictureFormat.CropBottom = 150 ' von unten schneiden
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.ScaleHeight 1.33333, msoFalse, msoScaleFromTopLeft ' auf 100% setzen
Stop
' Objekt anpassen
ActiveChart.ChartArea.Select
x = objChart1.Name
ActiveSheet.Shapes(x).ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes(x).ScaleHeight 0.4, msoFalse, msoScaleFromTopLeft
Danke vorab.
Anzeige