Wie wird VBA in Word 2007 zum Aktualisieren von PictureStyles in einer Aufgabe verwendet?

Question

Ich versuche, einen Mitarbeiter mit einigen Word 2007 Bildformatierung zu helfen. Ich möchte in der Lage sein, den Rahmenstil, den Schlagschatten usw. zu aktualisieren, indem ich den Bildern einen der benannten Stile zuweise, die Sie auf der Registerkarte Bildformatierung in der Multifunktionsleiste auswählen können. Der Stil, den ich versuche zu verwenden, heißt 'Simple Frame, Black'. Leider habe ich in der Object Model Reference keine Dokumentation über die Verwendung dieser Stile für InlineShapes gefunden.

Ich habe versucht, ein Makro aufzunehmen, sowohl mit der Maus, um durch die Schritte zu gehen, und nur mit der Tastatur zu tun, was ich will, aber keiner der Bildstil Zuweisung Schritte im resultierenden VBA-Modul angezeigt.

ich eine Frage gefunden, die auf Eierkopf here

Aus diesem ähnlich ist, klingt es, als ob vielleicht diese Funktionalität in dem Objektmodell nicht ausgesetzt ist. Ich frage mich, ob jemand einen Weg gefunden hat, dies zu tun, und wenn nicht, was wäre der beste Weg, um es zu umgehen.

Danke, Spencer

Answer 1

Soweit ich es nicht eine Möglichkeit direkt die genannten Bildstile von VBA gesetzt ist zu berichten. Es ist ein wenig zeitaufwendig, aber mein Vorschlag wäre, zwei Bilder in ein Word-Dokument einzufügen, die Formatierung auf eines von ihnen anzuwenden und dann beide Objekte im VBE Watch-Fenster zu untersuchen.

Aufgrund meiner Erfahrung mit Word 2010, das, was man beachten muss, sind: Borders, Fill, Glow, PictureFormat, Reflection, Shadow, & SoftEdge.

In Word 2010, um ein Bild zu ändern, ohne die Formatierung die gleiche Formatierung wie der 'Simple Rahmen, Schwarz' Stil gilt die folgenden Änderungen haben:

With ThisDocument.InlineShapes(1) 
    .Borders.OutsideLineStyle = wdLineStyleSingle 
    .Borders.OutsideLineWidth = wdLineWidth300pt 
    With .Shadow 
     .Blur = 4 
     .OffsetX = 2.12132 
     .OffsetY = 2.12132 
     .Style = msoShadowStyleOuterShadow 
     .Transparency = 0.57 
     .Visible = msoTrue 
    End With 
End With 

The Shadow Blur und Offsets sind kleinere Änderungen möglich‘ Ich sehe wirklich.