Option Objekt mit Text verschieben

18/05/2010 - 09:07 von WolfR | Report spam
Hallo NG.
Anfrage betrifft Office 2007 SP2.
Betrifft eingefügte Objekte vom Typ Textbox und Office-Grafik-Objekt, in
meinem Fall Charts von Excel.
Ich möchte beim Einfügen eines Objekts über VBA die Option:
Objekt mit Text verschieben automatisch setzen. Diese Option findet man bei
Erweitertes Layout. Ich bin der Meinung, daß das früher schon mal möglich
war. Finde es aber nicht mehr. Manuell kann ich die Option setzen. Im
Makrorecorder komme ich nicht an diese Funktion dran.
Die Option Verankern kann per VBA gesetzt werden.
Irgend welche Ideen?
Danke Wolfgang
 

Lesen sie die antworten

#1 Thomas Gahler
18/05/2010 - 21:51 | Warnen spam
Hallo WolfR


Ich möchte beim Einfügen eines Objekts über VBA die Option:
Objekt mit Text verschieben automatisch setzen. Diese Option findet man
bei
Erweitertes Layout. Ich bin der Meinung, daß das früher schon mal möglich
war.


Die Option gibt es im Objekt-Modell nicht als explizite Eingenschaft. Wenn
du deine Dialog-Feld beobachtest, dann stellst du fest, dass beim aktivieren
von 'Objekt mit Text verschieben' die Ausrichtung bei 'Absolute Position ...
unterhalb ...' auf "Absatz umgestellt wird.

Und somit haben wir die Lösung, wenn eine Objekt mit dem Textverschoben
werden soll, dann muss die vertikale Position relativ zum Absatz gesetzt
werden. Dies entspricht dem aktiverien des besagten Kontrollkàstchens.


Sub Demo()
Dim shp As Word.Shape

Set shp = Selection.ShapeRange(1)
With shp
.RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
'weitere Eigenschaften setzen
End With
End Sub


Thomas Gahler
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)


- Windows Vista (SP2), Office 2007 (SP2)

Ähnliche fragen