Form per Variable formatieren
13.08.2019 15:37:07
Lampert
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
Grüße
Michael
Anzeige