VBA Objekte ausrichten

[koter]

Hallo Fremoikaner,

...Wenn ich Dir ein Bier oder auch 2 ausgeben darf, lass' mich bitte wissen wie ...

...hab ich nicht verdient!

In meinem Code sind mindestens 2 Fehler.
Er dreht zur falschen Seite und vergrößert die gedrehte Schrift.

Der Teil zum drehen müsste so aussehen:

Code:

   If sAw.SizeWidth > sAw.SizeHeight Then
       If sTxt.SizeWidth > sAw.SizeWidth Then
           sTxt.SizeWidth = sAw.SizeWidth
           sTxt.SizeHeight = sTxt.SizeHeight * sTxt.AbsoluteHScale
       End If
       sTxt.AlignToShape cdrAlignHCenter, sAw
       sTxt.PositionY = Abstand + sAw.PositionY + (sAw.SizeHeight + sTxt.SizeHeight) / 2
   Else ' Text drehen
       If sTxt.SizeWidth > sAw.SizeHeight Then
           sTxt.SizeWidth = sAw.SizeHeight
           sTxt.SizeHeight = sTxt.SizeHeight * sTxt.AbsoluteHScale
       End If
       sTxt.AlignToShape cdrAlignVCenter, sAw
       sTxt.PositionX = sAw.PositionX + Abstand + (sAw.SizeWidth + sTxt.SizeHeight) / 2
       sTxt.Rotate -90
   End If

Ein Fläschchen gönne ich mir trotzdem.
(natürlich aus eigenem Bestand)

Gruß

Koter