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!

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