FAQ PowerPoint

FAQ PowerPointConsultez toutes les FAQ
Nombre d'auteurs : 20, nombre de questions : 150, dernière mise à jour : 10 juillet 2021

vba
Sélectionnez
Dim
xlApp As
Excel.Application
Dim
xlBook As
Excel.Workbook
'J'initialise mes variables
Set
xlApp =
CreateObject
(
"Excel.Application"
)
Set
xlBook =
xlApp.Workbooks.Open
(
"D:\Documents\PERSO\truc.xls"
)
xlApp.Visible
=
True
xlBook.Sheets
(
"Feuil1"
).Select
Créé le 31 octobre 2007 par bidou
vba
Sélectionnez
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
Créé le 10 octobre 2007 par annedeblois