Erstellen eines Word-Makros, das das ausgewählte Bild formatieren kann "Vor dem Text"

Question

Ich mache derzeit einige Geräte-Tags, die QR-Codes verwenden. Die Art und Weise, wie die Tags entworfen werden, erfordert, dass ich das QR-Code-Bild mit der Option "Vor dem Text" formatiere. Ich habe für alle anderen Schritte einfache Makros erstellt, aber Word erlaubt es mir nicht, ein Makro zu erstellen, das die Formatierung von Umbruchtext auswählt und dann Vor Text wählt.

Gibt es eine Möglichkeit oder einen Code, den ich verwenden kann, der es mir erlaubt, jeden QR-Code auszuwählen und ihn mit der Formatierung Vor dem Text zu formatieren?

Answer 1

Um den Textumbruch eines Word Shape Objekts auf "Vor Text" zu setzen, verwenden Sie die Eigenschaft WrapFormat.Type und legen Sie den Typ wdWrapFormatFront fest.

Beispielcode:

Dim shp As word.Shape 
'' Works on the currently selected Shape 
Set shp = Selection.ShapeRange(1) 
'' If you know which Shape, by index or by Name, then 
' Set shp = ActiveDocument.Shapes(indexOrName) 
'' If the object is currently an InlineShape it must first 
'' be converted to a Shape 
' Set shp = InlineShapeObject.ConvertToShape 
shp.WrapFormat.Type = wdWrapFront