Microsoft Excel

Herbers Excel/VBA-Archiv

Shapes Height / width ??

    Betrifft: Shapes Height / width ?? von: Martin T
    Geschrieben am: 02.10.2003 17:02:34

    Tag zusammen

    wie positioniere ich denn ein Shape nach rechts und unten? Es gibt ja .left und .top Wo ist der Trick, dass ich das Shape genau in die Zelle kriege?

    danke, alleine kriege ich dat nicht raus

    gruß Martin

      


    Betrifft: AW: Shapes Height / width ?? von: Lutz
    Geschrieben am: 02.10.2003 19:48:25

    Hallo Martin,

    aus Excel/VBA-Beispiele von H.Herber, vielleicht hilft es Dir weiter...

    Sub AnOrdnen()
       Dim shp As Shape
       Dim x As Double, y As Double
       x = 5: y = 0
       For Each shp In Worksheets("Tabelle1").Shapes
          If shp.Type = msoPicture Then
             shp.Left = x
             shp.Top = y
          End If
          y = shp.Top + shp.Height
        Next shp
    End Sub
    


    Gruß
    Lutz


      


    Betrifft: dankee.. von: Martin T
    Geschrieben am: 02.10.2003 20:35:01

    ...werde es sogleich mal probieren


     

    Beiträge aus den Excel-Beispielen zum Thema " Shapes Height / width ??"