Zentrieren von Shapes

Forumthread: Zentrieren von Shapes

21.12.2005 10:05:29

Shapes

Guten Morgen allerseits
ich muss in einem Tabellenblatt einen Shape anzeigen und zwar soll der in der Mitte des aktiven Fensters liegen.
Frage: Wie finde ich das Zentrum des aktiven Fensters?
Gruss
yogi

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zentrieren von Shapes

21.12.2005 11:17:14

Shapes
AW: Zentrieren von Shapes

21.12.2005 11:31:41

Shapes
AW: Zentrieren von Shapes

21.12.2005 11:42:31

Shapes

AW: Zentrieren von Shapes

21.12.2005 11:17:14

Shapes

MsgBox Int(ActiveWindow.Width / 2)
Viel Erfolg!

AW: Zentrieren von Shapes

21.12.2005 11:31:41

Shapes

hi
Public


Sub center_shape()
' zentrierposition
nY = ActiveWindow.VisibleRange.Height / 2
nX = ActiveWindow.VisibleRange.Width / 2
' zentrieren
ActiveSheet.Shapes(1).Top = nY - ActiveSheet.Shapes(1).Height / 2
ActiveSheet.Shapes(1).Left = nX - ActiveSheet.Shapes(1).Width / 2
End Sub

mfg

AW: Zentrieren von Shapes

21.12.2005 11:42:31

Shapes

Hurra, der Tag ist gerettet, ich kann in den verdienten Weihnachtsurlaub!!
Wünsche euch dasselbe und einen guten Rutsch ins neue Jahr!!
yogi

Forumthread: Zentrieren von Shapes

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread