Preguntar si Doc tiene una imagen inline

hola,

Hola necesito saber como preguntar a traves de una rutina vba si un
doc tiene una imagen inline insertada.
algo asi como:
if documento have imagen_inline do
..
..
endif

pues puedes probar por ejemplo >>

'[]

Sub demo()

Dim x As Long

x = ActiveDocument.InlineShapes.Count

If x > 0 Then
MsgBox "¿el documento tiene imagenes?" _
& Chr(13) & "creo que tiene" & " " & x _
& " " & "InlineShape/s"
Else
MsgBox "¿el documento tiene imagenes?" _
& Chr(13) & "pues no tiene ninguna :-P "
End If

'[]

comentanos...!!

Saludos
Monica


www.fermu.com
www.teladearana.es
www.elguille.info