Option Objekt mit Text verschieben
WolfR
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
Thomas Gahler
> 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)