Wie kann man den scaleWidth/scaleHeight Wert auslesen?
Setzen ist ja kein Problem, aber wie ihn auslesen... Darauf habe ich keine Antworten gefunden.
lg Llemaban
Sub Scaleabfragen()
Height_bevor_Scale = Tabelle1.Shapes("Grafik 1").Height
Tabelle1.Shapes("Grafik 1").ScaleHeight 1.75, msoFalse
Height_nach_Scale = Tabelle1.Shapes("Grafik 1").Height
ScaleIst = Height_nach_Scale / Height_bevor_Scale
Debug.Print ScaleIst
End Sub
Sub Makro1()
Dim s As Shape
For Each s In ThisWorkbook.ActiveSheet.Shapes
If s.Name = "Picture 1" Then
HöheAlt = s.Height ' gucken nach der Alten Höhe
s.ScaleHeight 1, msoCTrue ' Scalieren auf 100%
HöheNeu = s.Height ' gucken nach der Neuen Höhe
ScaleWar = HöheAlt / HöheNeu ' Die gewesene Scalierung ausrechnen
s.ScaleHeight ScaleWar, msoCTrue ' Die gewesene Scalierung setzen
End If
Next
End Sub