Save Embedding image from part

[maxstels]

How Save kOLEDocumentEmbeddingObject (image) from Sketch Method ReferencedOLEFileDescriptor.Activate not worked for many embedding object Use AIP 2014 Pro

[Vladimir.Ananyev · Accepted solution]

Dear maxstels,

In your particular case images are used by DecalFeature.

So these images could be easily get as iPictureDisp objects and saved into file on disk.

Here is the VBA sample code:

Sub Test_DECAL()
  Dim oDoc As PartDocument
  Set oDoc = ThisApplication.ActiveDocument
  Dim oDef As PartComponentDefinition
  Set oDef = oDoc.ComponentDefinition
  
  Dim oDecal As DecalFeature
  Set oDecal = oDef.features.DecalFeatures.Item(1)
  
  Dim oSketchImage As SketchImage
  Set oSketchImage = oDecal.Image
  
  Dim oImage As IPictureDisp
  Set oImage = oSketchImage.Image

  Dim Filename As String
  Filename = "c:\temp\AAA.bmp"  
  Call SavePicture(oImage, Filename)
  Beep
End Sub

 You may find useful the following post as well:

http://adndevblog.typepad.com/manufacturing/2013/07/how-to-save-on-the-disk-the-thumbnail-image-of-a...

Cheers,