Microsoft Excel

Herbers Excel/VBA-Archiv

Ovale unter VBA umpositionieren

    Betrifft: Ovale unter VBA umpositionieren von: HerbertS
    Geschrieben am: 29.09.2003 19:48:16


    Hallo Excel-Freunde,

    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
      


    Betrifft: AW: Ovale unter VBA umpositionieren von: K.Rola
    Geschrieben am: 29.09.2003 21:35:42

    Hallo,

    Option Explicit
    Sub Oval()
    Dim i As Byte, t As Single
    t = 50
    For i = 1 To 2
       Sheets(1).Shapes("Oval " & i).Left = 50
       Sheets(1).Shapes("Oval " & i).Top = t
       t = t + 50
    Next
    End Sub
    


    Gruß K.Rola