Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema " Shapes Height / width ??"
Shapes in Abhängigkeit von Zellwerten färben