FAQ PowerPointConsultez toutes les FAQ

Nombre d'auteurs : 20, nombre de questions : 150, dernière mise à jour : 30 mars 2017 

 
OuvrirSommaireMacros, VBA et fonctions avancéesContrôles
vba
Sélectionnez

Dim Obj As Shape
Dim Resultat As String
 
For i = 1 To ActivePresentation.Slides.Count
 
For Each Obj In ActivePresentation.Slides(i).Shapes
  If Obj.Type = msoOLEControlObject Then
     If Obj.OLEFormat.ProgID = "Forms.CheckBox.1" Then
        Resultat = Resultat & ActivePresentation.Slides(i).Name _
        & " / " & Obj.Name & " / " & Obj.OLEFormat.Object.Value & vbCrLf
     End If
  End If
Next Obj
 
Next i
 
MsgBox Resultat
Créé le 4 octobre 2007  par SilkyRoad
  

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2009 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.