VBA und Word

PatrickD

Mitglied
Hallo ,

weiß von Euch jemand wie man auf ein Bild in einem Word-Dokument per VBA zugreifen kann ?

Das Bild (BMP-Datei) wurde per Einfügen > Grafik aus Datei in das Dokument kopiert.

Dank schonmal im vorraus !

Patrick
 
Naja, sowas habe ich schon gemacht, aber dann
entnervt aufgegeben.

Wenn ich wenigstens eine Möglichkeit fände das, bzw.
die Bilder als Objekt ansprechen zu können.

Ich kann sie zwar aus der Tabelle des Doc's löschen
(ActiveDocument.Tables(1).Cell(1,1) = "" od. so ähnlich),
dann sind sie aber wech.
Wenn das Doc dann geschlossen wird, für immer !

Ich möchte die Bilder halt aus- und einblenden können.

Gruß
 
Setze doch per Grafikleiste die Tranparenz rauf (bzw. runter)....

' Makro aufgezeichnet am 14.10.2002 von Webcutdirektor'
Selection.InlineShapes(1).Reset
Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
End Sub
 
Hallo,

Dein Vorschlag hat leider nicht funktioniert.
Aber er hat mich auf die Idee gebracht die Bilder über die
Shapes-Auflistung anzusprechen und dann per .VISIBLE einfach
auszublenden.
So funktionierts dann:

ActiveDocument.Shapes(n).Select
With Selection.ShapeRange(1)
.Visible = msoFalse
End With


Danke.
 
Zurück