Shape dynamsich positionieren
25.03.2019 13:53:08
Peter
ich möchte einen Shape, dem ich ein Makro zugewiesen habe, jeweils in Spalte "C" am Ende + 3 Zeilen der Tabelle positionieren.
Bekomme das aber leider nicht in das nachfolgende Makro integriert. Kann mir bitte jemand behilflich sein. Wie ist dazu de Syntax ?
Grüße und besten Dank im Voraus.
Peter
Sub Makro6()
' Makro6 Makro
Dim lngLast As Long
lngLast = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
a = lngLast
Range("C" & a + 3).Select
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 61.5, 200.5, 118.5, 45).Select
Selection.OnAction = "Makro5"
Selection.ShapeRange.TextFrame2.VerticalAnchor = msoAnchorMiddle
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "Makro XX"
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 7). _
ParagraphFormat
.FirstLineIndent = 0
.Alignment = msoAlignCenter
End With
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 7).Font
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.ObjectThemeColor = msoThemeColorLight1
.Fill.ForeColor.TintAndShade = 0
.Fill.ForeColor.Brightness = 0
.Fill.Transparency = 0
.Fill.Solid
.Size = 16
.Name = "+mn-lt"
End With
End Sub
Anzeige