Accueil
Accueil Le Club Delphi Kylix C C++ Java J2EE DotNET & C# Visual Basic Access Pascal Dev Web PHP ASP XML UML SQLSGBD Windows Linux Autres
logo

precedent    sommaire      


Comment enregistrer une diapositive au format image ?
auteur : SilkyRoad
Private Sub CommandButton1_Click()
        Dim NomImage As String

        NomImage = "C:\imageTemp.jpg"
    
        'Supprime l'image si elle existe déja
        If Dir(NomImage) <> "" Then Kill NomImage
     
        'Exporte le 1er Slide au format image
        ActivePresentation.Slides(1).Export NomImage, "jpg"
        End Sub

Comment changer de couleur une forme automatique sur laquelle on clique ?
auteur : SilkyRoad
Il suffit de programmer la macro suivante et l'affecter à la forme automatique (clic droit dessus et Paramètre des actions).
Sub changecolor ()
        Activepresentation.slides(numero de ta diapo).shapes(numero de ton image).Fill.Forecolor.RGB = RGB(255, 0, 0)
        end sub

Comment boucler sur toutes les checkBoxes d'une présentation ?
auteur : SilkyRoad
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
       End Sub

Comment insérer des diapositives provenant d'une autre présentation, dans la présentation ouverte ?
auteur : SilkyRoad
'expression.InsertFromFile(FileName, Index, SlideStart, SlideEnd)
         'Cet exemple montre comment insérer les diapositives 1 à 4 provenant
         'de "maPresentation2.ppt", à la suite de la diapositive 2 dans la présentation "maPresentation1.ppt"

         Sub InsereDiapositives()
         Dim pptDoc As Presentation

         Set pptDoc = Application.Presentations.Open(FileName:="C:\maPresentation1.ppt")

         'expression.InsertFromFile(FileName, Index, SlideStart, SlideEnd)
         'Cet exemple montre comment insérer les diapositives 1 à 4 provenant
         'de "maPresentation2.ppt", à la suite de la diapositive 2 dans la présentation "maPresentation1.ppt"
         pptDoc.Slides.InsertFromFile "C:\maPresentation2.ppt", 2, 1, 4
         End Sub

Comment calculer la durée d'une présentation dont les diapositives sont paramétrés pour défiler automatiquement ?
auteur : SilkyRoad
L'influence éventuelle des vitesses et style de transition n'est pas prise en compte.
Sub Defile()
    Dim i As Integer
        Dim x As Long
        
        For i = 1 To Ppp1.Slides.Count
            x = x + Ppp1.Slides(i).SlideShowTransition.AdvanceTime
        Next i
        
        MsgBox x
End Sub

Comment associer une macro à l'évènement "Déplacement de la souris" sur un Shape ?
auteur : SilkyRoad
Sub OnMouveMouse()
    With ActivePresentation.Slides(1) _
        .Shapes(3).ActionSettings(ppMouseOver)
            .Action = ppActionRunMacro
            .Run = "NomMacroDeclenchee"
            .AnimateAction = True
    End With
End Sub

Comment masquer totalement une présentation pendant l'éxécution d'une macro ?
auteur : SilkyRoad
Indiquez l'argument WithWindow:=msoFalse lors de l'ouverture de la présentation.
Nota:
Cette solution ne permet pas l'utilisation de la méthode Select lors de la manipulation du fichier PPT par macro
Sub MasquerPPT()
    Dim pptDoc As Presentation
    Set pptDoc = Application.Presentations.Open("C:\maPresentation.ppt", WithWindow:=msoFalse)
End Sub

Comment récupérer la taille graphique d'une zone de texte?
auteur : annedeblois

          Largeur = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.BoundWidth
          Hauteur = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.BoundHeight
          

Comment supprimer les liaisons Excel/PowerPoint à l'aide d'une macro?
auteur : annedeblois

        Sub Liaisons()
          For Each sld In ActivePresentation.Slides
            For Each Forme In sld.Shapes
              If Forme.Type = msoLinkedOLEObject Then
              Forme.LinkFormat.AutoUpdate = ppUpdateOptionManual
              End If
            Next
          Next
        End Sub
        

precedent    sommaire      

Consultez les autres F.A.Q's


Les sources présentés sur cette pages sont libre de droits, et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs. Copyright ©2007  Developpez LLC. Tout 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'à 3 ans de prison et jusqu'à 300 000 E de dommages et intérets. Cette page est déposée à la SACD.

Vos questions techniques : forum d'entraide Accueil - Publiez vos articles, tutoriels, cours et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones. Nous contacter - Copyright 2000..2005 www.developpez.com