ich würde gerne eine Form (Quadrat, Rechteck) abhängig von berechneten Zahlenwerten per Variable formatieren (Länge, Höhe).
Mit der Definition der Variable habe da Probleme.
Hier mein "Entwurf", bei dem ich erstmal eine Variable a definiert habe:
Sub FormAbhaengigFormatieren()
a As Double
a = 600
ActiveSheet.Shapes.AddShape(msoShapeFlowchartConnector, a, 20.25, 36, 36). _
Select
Selection.ShapeRange.Height = 2.8346456693
Selection.ShapeRange.Width = 2.8346456693
Application.CommandBars("Format Object").Visible = False
Range("A1").Select
End Sub
Herzlichen Dank vorab schonmal für die Unterstützung.Grüße
Michael