Optælling af grafik i worddokument

Denen kode tækller antallet af objekter i dit dokument, men den tager alt med, fx Wordart osv.

Sub TælGrafik()
  For Each s In ActiveDocument.Shapes
  i = i + 1
  Next s
  MsgBox "Der er " & i & " obejkter i dokumentet"
End Sub

ActiveDocument.Shapes.count for alle shapes
eller brug ovenstående kode og test for s.type =
msoAutoShape, msoCallout, msoChart, msoComment, msoEmbeddedOLEObject, msoFormControl, msoFreeform, msoGroup, msoLine, msoLinkedOLEObject, msoLinkedPicture, msoMedia, msoOLEControlObject, msoPicture, msoPlaceholder, msoScriptAnchor, msoShapeTypeMixed, msoTable, msoTextBox, or msoTextEffect.

Husk at der også er noget der hedder inlineshapes

Kunne du bruge det?