Die Inventor FAQ wird unterstützt von:

Inventor FAQ Logo

27.08.2009

Bitmaps aus Zeichnungen löschen

Wer Bilder aus einer IDW nicht mehr löschen kann, dem hilft vielleicht dieses Makro:

Public Sub DeleteOLEReference()
Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument
Dim aOLERefs() As ReferencedOLEFileDescriptor
ReDim aOLERefs(oDoc.ReferencedOLEFileDescriptors.Count - 1)
Dim iRefCount As Integer
iRefCount = oDoc.ReferencedOLEFileDescriptors.Count
Dim i As Integer
For i = 1 To iRefCount
Set aOLERefs(i - 1) = oDoc.ReferencedOLEFileDescriptors.Item(i)
Next
For i = 1 To iRefCount
If MsgBox("Delete """ & aOLERefs(i - 1).FullFileName & """?", vbQuestion + vbYesNo) = vbYes Then
aOLERefs(i - 1).Delete
End If
Next
End Sub

Danke an Autodesk für das Makro!

Keine Kommentare:

Kommentar veröffentlichen

War der Beitrag hilfreich oder hast du eine Ergänzung dazu?
Ist noch eine Frage offen?
Ich freue mich auf deine Rückmeldung!

Hinweis: Nur ein Mitglied dieses Blogs kann Kommentare posten.

Related Posts Plugin for WordPress, Blogger...
Inventor FAQ Newsletter. Emailadresse: