VBA EXCEL-POWERPOINT

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
M
Mimotz
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 22 juillet 2016
Version d'Excel : 2013

Message par Mimotz » 22 juillet 2016, 14:03

Bonjour,

je souhaite modifier la mise en forme de mon tableau dans le powerpoint (largeur et hauteur) mais je bloque à ce niveau la :
=> .ActivePresentation.slides(1).Shapes.pastesplecial (pppastedefaut, link:=True).Select

Pouvez-vous m'aider ?

D'avance, merci
PowerPointVBA.pptx
(42.23 Kio) Téléchargé 28 fois
Fichier excel macro.xlsm
(20.57 Kio) Téléchargé 54 fois
p
pierre.jy
Membre fidèle
Membre fidèle
Messages : 499
Appréciation reçue : 1
Inscrit le : 26 février 2016
Version d'Excel : 2010

Message par pierre.jy » 22 juillet 2016, 14:12

Bonjour,

et qu'est censé provoquer cette ligne de code ? je comprends pas tu effectue un collage et une sélection en même temps ?
M
Mimotz
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 22 juillet 2016
Version d'Excel : 2013

Message par Mimotz » 22 juillet 2016, 14:22

j'ai voulu sélectionner le tableau dans le powerpoint pour pouvoir modifier la mise en forme.
M
Mimotz
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 22 juillet 2016
Version d'Excel : 2013

Message par Mimotz » 26 juillet 2016, 11:58

Le programe n'accepte pas link:=True, pourtant essentiel pour conserver la mise en forme du forme dans le slide.

Sub VVV()

Windows("Fichier excel macro.xlsm").Activate
Sheets("TRAME").Select
Range("B4:H14").Select
Selection.Copy

Set objApp = CreateObject("PowerPoint.Application")
With objApp
.Activate
.Presentations.Open Filename:="C:\Documents\PowerPointVBA.pptx", ReadOnly:=msoFalse
.ActivePresentation.slides(1).Select
.ActivePresentation.slides(1).Shapes.PasteSpecial(ppPasteDefault, link:=True).Select
End With
End Sub
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message