-
FlexPro
- Zoom sur FlexPro
- Fonctionnalités & Options
- Domaines d’application
- Tous les avantages
- Nouveau dans FlexPro 2021
- Testez FlexPro gratuitement
- FlexPro View OEM Freeware
- Conseils d’achat
- Login
- Langue
-
-
-
- +49 6894 929600
- infoweisang.com
- Google Maps
- Produits
- News
- Support
- Société
- Emplois
- Contact
- Login
- Langue
-
-
-
- +49 6894 929600
- infoweisang.com
- Google Maps
Accueil > Community > Automation and VBA > Automating JPEG export of charts > Reply To: Automating JPEG export of charts
March 23, 2015 at 9:35 am
#9382
![Bernhard Kantz](https://www.weisang.com/wp-content/uploads/2016/09/default_avatar.jpg)
Participant
The document consists of a collection of pages, each containing a collection of shapes. Some of them like tables and diagrams have DocObjects associated with. The following sample enumerates the diagrams of a document and displays their name.
Sub DocuTest()
Dim oDoc As Document
Set oDoc = ThisDatabase.RootFolder("Dokument", fpObjectTypeDocument)
Dim oShapes As Shapes
For Each oShapes In oDoc.Pages
Dim oShape As Shape
For Each oShape In oShapes
If Not oShape.DocObject Is Nothing Then
If oShape.DocObject.ObjectType = fpObjectType2DDiagram _
Or oShape.DocObject.ObjectType = fpObjectType3DDiagram Then
MsgBox oShape.DocObject.Name
End If
End If
Next
Next
End Sub