VBA und Word

[PatrickD]

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

 

[Dario Linsky]

experimentier doch einfach mal mit den objekt-bibliotheken von word rum, damit geht das garantiert.

 

[PatrickD]

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ß

 

[Thomas Lindner]

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

 

[PatrickD]

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.Select
With Selection.ShapeRange(1)
.Visible = msoFalse
End With

Danke.