Bonjour à tous,
J'ai surfé dans le forum afin de trouver une solution à mon petit problème mais je ne pense pas avoir encore trouvé cette situation.
a). J'ai trouvé un code pour copier/coller (au format image) un tableau d'un excel vers powerpoint. Je peut paramétrer l'endroit ou cette image est collé. Aucun problème jusque la.
Windows("TdB_MT_Mise en forme.xlsm").Activate
Sheets(Data).Select
Range("B3:K34").Select
Selection.Copy
ppt.ActivePresentation.Slides(1).Select
ppt.ActivePresentation.Slides(1).Shapes.PasteSpecial (ppPasteBitmap)
NbShpe = Pptdoc.Slides(1).Shapes.Count
With Pptdoc.Slides(1).Shapes(NbShpe)
.Height = 73.5 'hauteur image
.Width = 311.81 'largeur image
.Left = 38.47 'horizontale dans le slide
.Top = 100.68 'verticale dans le slide
End With
b) Je souhaite faire exactement la même chose mais coller non pas une image du tableau mais le tableau lui même (et donc la capacité d'écrire sous powerpoint dans le tableau). Je peut y arriver avec : ppt.ActiveWindow.View.Paste
Ici, mon problème est que je ne peut plus du tout gérer la position du tableau dans la planche et je souhaite pouvoir le faire.
Si vous avez une piste pour résoudre ce problème je suis client 🙂
Merci à tous pour votre aide!
Nicolas
J'ai surfé dans le forum afin de trouver une solution à mon petit problème mais je ne pense pas avoir encore trouvé cette situation.
a). J'ai trouvé un code pour copier/coller (au format image) un tableau d'un excel vers powerpoint. Je peut paramétrer l'endroit ou cette image est collé. Aucun problème jusque la.
Windows("TdB_MT_Mise en forme.xlsm").Activate
Sheets(Data).Select
Range("B3:K34").Select
Selection.Copy
ppt.ActivePresentation.Slides(1).Select
ppt.ActivePresentation.Slides(1).Shapes.PasteSpecial (ppPasteBitmap)
NbShpe = Pptdoc.Slides(1).Shapes.Count
With Pptdoc.Slides(1).Shapes(NbShpe)
.Height = 73.5 'hauteur image
.Width = 311.81 'largeur image
.Left = 38.47 'horizontale dans le slide
.Top = 100.68 'verticale dans le slide
End With
b) Je souhaite faire exactement la même chose mais coller non pas une image du tableau mais le tableau lui même (et donc la capacité d'écrire sous powerpoint dans le tableau). Je peut y arriver avec : ppt.ActiveWindow.View.Paste
Ici, mon problème est que je ne peut plus du tout gérer la position du tableau dans la planche et je souhaite pouvoir le faire.
Si vous avez une piste pour résoudre ce problème je suis client 🙂
Merci à tous pour votre aide!
Nicolas
