Ovale unter VBA umpositionieren
29.09.2003 19:48:16
HerbertS
ich bräuchte mal wieder Eure Hilfe. Ich habe verschiedene Kreise (Ovale) auf einem Blatt. Ich möchte sie verschieben und zwar nicht relativ (wie mit IncrementLeft 120.75 mit Makrorecorder) sondern auf eine feste Position im Blatt.
1. Frage
Sub OvalVerschieben()
' Makro am 29.09.2003 von HerbertS aufgezeichnet
On Error Resume Next
ActiveSheet.Shapes.Range(Array("Oval 8", "Oval 9")).Select
Selection.ShapeRange.IncrementLeft 120.75
Selection.ShapeRange.IncrementTop 66
End Sub
2. Frage
Wie werde ich die Nummern los z.B. bei Oval 8? So dass ich beliebige Kreise ansprechen kann!
Vielen Dank im Voraus
HerbertS
Anzeige