PowerPoint
Fermé
Coco
-
8 sept. 2015 à 13:48
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 8 sept. 2015 à 15:54
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 8 sept. 2015 à 15:54
A voir également:
- Shapes.pastespecial
- Visionneuse powerpoint - Télécharger - Présentation
- Télécharger powerpoint 2013 - Télécharger - Présentation
- Publipostage powerpoint - Forum Powerpoint
- Libreoffice powerpoint - Forum Logiciels
- Code portail powerpoint pix ✓ - Forum VB / VBA
3 réponses
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
8 sept. 2015 à 14:49
8 sept. 2015 à 14:49
Bonjour,
Remplace:
par:
Remplace:
Diapo.Select Diapo.Shapes.PasteSpecial(ppPasteDefault, link:=True).Select
par:
Diapo.Shapes.Paste
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
8 sept. 2015 à 15:15
8 sept. 2015 à 15:15
J'ai fait un essai avec une nouvelle présentation, cela fonctionne. Je pense que cela se situe au niveau du slide 3
Option Explicit
Sub essai()
' Necessite d'activer la reference Microsoft Powerpoint Object Library
' Variables
Dim PPT As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim NbShpe As Byte
Dim n, Diapo, maPlage, shpe
Set PPT = CreateObject("Powerpoint.Application") 'creation session PowerPoint
PPT.Visible = True 'l'application sera visible
Set PptDoc = PPT.Presentations.Add
n = PptDoc.Slides.Count
' Supprime toutes les diapos sauf les 2 premières
'While n <> 2
'PptDoc.Slides(3).Delete
'n = PptDoc.Slides.Count
'Wend
With PptDoc
' Créer diapo 3
Set Diapo = .Slides.Add(Index:=1, Layout:=ppLayoutBlank)
Sheets("Feuil1").Activate
Set maPlage = Range(Cells(13, 2), Cells(17, 4))
maPlage.Select
Selection.Copy
Diapo.Select
Diapo.Shapes.PasteSpecial(ppPasteDefault, link:=True).Select
NbShpe = Diapo.Shapes.Count
'Renomme et met en forme l'objet collé
With Diapo.Shapes(NbShpe)
.Left = 100 'position horizontale dans le slide
.Top = 150 'position verticale dans le slide
.Height = 150 'hauteur image
.Width = 280 'largeur image
End With
Set shpe = Diapo.Shapes. _
AddTextbox(msoTextOrientationHorizontal, _
150, 20, 500, 50) 'Taille
' Titre
With shpe.TextFrame.TextRange
.Text = "INFORMATION MARCHE"
.Font.Name = "arial"
.Font.Size = 36
.Font.Color.RGB = RGB(0, 91, 187) ' Couleur
End With
End With
End Sub
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
8 sept. 2015 à 15:54
8 sept. 2015 à 15:54
Je me suis mis dans les mêmes conditions.
Voir l'exemple:
http://www.cjoint.com/c/EIin060jVdQ
Voir l'exemple:
http://www.cjoint.com/c/EIin060jVdQ
8 sept. 2015 à 14:58
je viens d'essayer et ça ne marche pas, toujours le même message d'erreur.... Je ne comprends vraiment pas...