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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 !