Welche Alternativen gibt es in VBA, wenn der Code appWord.Options.DoNotCompressPictures = True nicht funktioniert?

Wenn der Befehl `appWord.Options.DoNotCompressPictures = True` in VBA nicht funktioniert, kann eine alternative Methode verwendet werden, um die Komprimierung von Bildern in einem Word-Dokument zu verhindern. Eine Möglichkeit besteht darin, die Komprimierungseinstellungen für jedes Bild im Dokument individuell zu ändern. Hier ist ein Beispiel, wie das in VBA gemacht werden kann:

```vba
Sub PreventPictureCompression()
Dim appWord As Object
Dim doc As Object
Dim shape As Object

' Word-Anwendung starten
Set appWord = CreateObject("Word.Application")
appWord.Visible = True

' Neues Dokument erstellen
Set doc = appWord.Documents.Add

' Durch alle Shapes im Dokument iterieren
For Each shape In doc.Shapes
If shape.Type = msoPicture Then
shape.PictureFormat.Compress False, False, 0, 0
End If
Next shape

' Durch alle InlineShapes im Dokument iterieren
For Each shape In doc.InlineShapes
If shape.Type = wdInlineShapePicture Then
shape.PictureFormat.Compress False, False, 0, 0
End If
Next shape

' Aufräumen
Set shape = Nothing
Set doc = Nothing
Set appWord = Nothing
End Sub
```

In diesem Beispiel wird die Komprimierung für jedes Bild im Dokument deaktiviert, indem die `Compress`-Methode der `PictureFormat`-Eigenschaft aufgerufen wird. Die Parameter `False, False, 0, 0` stellen sicher, dass keine Komprimierung angewendet wird.

Weitere Informationen zu den Methoden und Eigenschaften in VBA für Word findest du in der [Microsoft-Dokumentation](https://docs.microsoft.com/de-de/office/vba/api/overview/word).