Convert picture imported to Word document with VBA

Question

I've Word documents that contain acronyms and a macro that searches the document for them so that they can be identified for an acronym table. So far, I can search a document's text and tables but not the pictures with the macro. I've found that if
I manually select the picture, right click and select group->ungroup, I get a MsgBox with the message "This is an imported picture, not a group. Do you want to convert it to a Microsoft Office drawing object?" Selecting the yes button converts
it into many Shapes objects that are then searchable.
I've determined that the picture (object) type prior to conversion is msoPicture and that it gets converted to an msoCanvas object with many Shape objects on it.
I've built a macro that can loop through various Canvas objects and then the Shape objects to find the acronyms. Unfortunately, I haven't been able to find a way to convert the image/object from msoPicture to msoCanvas in VBA. Does anyone know how to do
this? Thanks.

Answer 1

Hi,
As far as I know, we can’t convert a picture to canvas through VBA.
For that process through the UI, I think it add the canvas first, then add the picture to that canvas.
For your requirement, you could add the canvas first, then add the picture to tat canvas.
Sub NewCanvasPicture()
Dim shpCanvas As Shape
'Add a drawing canvas to the active document
Set shpCanvas = ActiveDocument.Shapes _
.AddCanvas(Left:=100, Top:=75, _
Width:=200, Height:=300)
'Add a graphic to the drawing canvas
shpCanvas.CanvasItems.AddPicture _
FileName:="C:\Program Files\Microsoft Office\" & _
"Office\Bitmaps\Styles\stone.bmp", _
LinkToFile:=False, SaveWithDocument:=True
End Sub
Regards
Starain
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.