adshape mit Variablen aus Zellbezug
15.01.2023 11:22:59
SSc
habe mir ein schönes Makro geschrieben zur automatisierten Erstellung von Grafikelementen, welche soweit super funktioniert:
Nun möchte ich gern auch die Art der Grafik mit einer Variablen aus einer Zelle (Spalte V) nutzen:
Für msoShapeRectangle also auch einen Zellbezug einbauen, woher er diesen nehmen soll, kann mir jmd helfen?
Ich danke Euch!!
Sub Test()
' Makro5 Makro
Dim i As Long
On Error Resume Next
ActiveSheet.Shapes.SelectAll
Selection.Delete
Sheets("Makro").Select
ActiveSheet.Shapes.Range(Array("Makro_Test")).Select
Selection.Copy
Sheets("Entwurf").Select
Range("I1").Select
ActiveSheet.Paste
For i = 2 To Range("I1")
ActiveSheet.Shapes.AddShape(msoShapeRectangle, Val(Range("S" & i).Value), Val(Range("T" & i).Value), _
Val(Range("Q" & i).Value), Val(Range("R" & i).Value)). _
Select
Selection.ShapeRange.Name = Range("I" & i)
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = Range("I" & i) & Chr(13) & Range("J" & i) & " x " & Range("K" & i)
ActiveSheet.Shapes.Range(Array(Range("I" & i))).Select
Range("I2").Select
Next i
End Sub
Anzeige