| auteur : SilkyRoad | Private Sub CommandButton1_Click ()
Dim NomImage As String
NomImage = " C:\imageTemp.jpg "
If Dir (NomImage) < > " " Then Kill NomImage
ActivePresentation. Slides (1 ). Export NomImage, " jpg "
End Sub
|
|
| 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
|
|
| 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
|
|
| auteur : SilkyRoad |
Sub InsereDiapositives ()
Dim pptDoc As Presentation
Set pptDoc = Application. Presentations . Open (FileName:= " C:\maPresentation1.ppt " )
pptDoc. Slides . InsertFromFile " C:\maPresentation2.ppt " , 2 , 1 , 4
End Sub
|
|
| 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
|
|
| auteur : SilkyRoad | Sub OnMouveMouse ()
With ActivePresentation. Slides (1 ) _
. Shapes (3 ). ActionSettings (ppMouseOver)
. Action = ppActionRunMacro
. Run = " NomMacroDeclenchee "
. AnimateAction = True
End With
End Sub
|
|
| 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
|
|
| auteur : annedeblois |
Largeur = ActiveWindow. Selection . ShapeRange . TextFrame . TextRange . BoundWidth
Hauteur = ActiveWindow. Selection . ShapeRange . TextFrame . TextRange . BoundHeight
|
|
| 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
|
|
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.
|