[OLEFormat] Object Changed sur OLE : Macro pour refresh l'image
Bonjour,
J'ai un souci j'ai fais une application qui génére un powerpoint qui contient des OleObject de type excel.
A l'ouverture j'ai une grosse image blanche avec marqué "Object Changed"
J'aimerai faire une macro pour les refresh (générer automatiquement l'image du OLE)
un bout de code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Sub titi()
Dim oShape As Shape
Dim oSlide As Slide
Dim oGraph As Object
Dim oObject As Object
For Each oSlide In ActivePresentation.Slides
For Each oShape In oSlide.Shapes
If oShape.Type = msoEmbeddedOLEObject Then
Set oObject = oShape.OLEFormat.Object
oObject.Application.Update() // marche pas
Set oObject = Nothing
End If
Next oShape
Next oSlide
End Sub |
merci !
