mit folgendem Makro wird ein roter Button in der aktiven Tabelle erzeugt. Bei erneutem Aufruf des Makros wird wieder ein Button erzeugt, der DIREKT auf dem vorherigen liegt.
Was muss am Makro anders sein, damit bei neuem Aufruf, der neue Button nicht auf dem vorherigen liegt, sondern versetzt erscheint?
Danke für evtl.Lösung und Hilfe.
Gruß, Dieter(Drummer)
Musterdatei mit Makro (Aufruf mit String+b) anbei:
https://www.herber.de/bbs/user/106121.xlsm
'Mx: Alle Shapes werden Nummeriert
Sub ButtonRotNeu()
Application.Speech.Speak ("Es wird ein neuer roter Button erzeugt. Beim zweiten Aufruf _
liegt der neue Button auf dem ersten")
ActiveSheet.Shapes.AddShape(msoShapeOval, 27.75, 15.75, 14.25, 12.75).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
.Solid
End With
With Selection.ShapeRange.Line
.Visible = msoTrue
.Weight = 1
End With
Selection.ShapeRange.Shadow.Type = msoShadow21
Selection.ShapeRange.Width = 11.3385826772
Range("A4").Select
End Sub