Shapes Height / width ??

Bild

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

Bild


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


Bild


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

...werde es sogleich mal probieren


 Bild

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