copier coller zone de texte ppt vb

copier coller zone de texte ppt vb - VB/VBA/VBS - Programmation

Marsh Posté le 29-01-2013 à 14:55:58    

Bonjour,
 
J'aimerais copier/coller un titre (ou zone de texte) dans un powerpoint, à partir d'une fonction dans excel, d'une diapo à l'autre (de Diapo1 à Diapo2).
Je m'explique : je crée automatiquement des graphes, que je copie colle dans un powerpoint. Ce dernier est déjà mis en page (image de fond, titre ...) et sur la Diapo1 (qui correspond à l'index 2), il y a une zone de texte. J'ajoute une diapo (Diapo2), et j'aimerais copier coller cette zone de texte...
 
mon code  :  

Code :
  1. Public Function ppt()
  3.     Dim ppapp As PowerPoint.Application
  4.     Dim Pres As PowerPoint.Presentation
  5.     Dim Diapo1 As PowerPoint.Slide
  6.     Dim Diapo2 As PowerPoint.Slide
  7.     Dim handle As Long
  8.     Dim nomFichier As String
  9.    
  10.     handle = 0
  11.     'On ouvre le powerpoint
  12.     Set ppapp = CreateObject("PowerPoint.Application" )
  13.    
  14.    
  15.    
  16.     ' Et on lui dit de quelle présentation il s'agit :
  17.     nomFichier = OuvrirUnFichier(handle, "Sélectionner le masque", 1, "Microsoft Powerpoint", "ppt" )
  18.    
  19.     ppapp.Visible = True ' Indispensable, sinon il ne peut pas ouvrir de fichier (Erreur)
  20.    
  21.     Set Pres = ppapp.Presentations.Open(nomFichier)
  23.     ppapp.Activate
  24.    
  25.     'Avec la présentation créée
  26.     With Pres
  27.        
  28.         'on dit que la 2ème diapo a pour nom Diapo1
  29.         Set Diapo1 = .Slides(2)
  30.        
  31.         'on ajoute une diapositive
  32.         Set Diapo2 = .Slides.Add(Index:=3, Layout:=ppLayoutBlank)
  34.         'On copie/colle la zone de texte
  35.         '...
  36.        
  37.         ' Copie du graphe excel
  38.         Workbooks("Comparaison.xls" ).Sheets("Comparaison de la taille" ).Activate
  39.         ActiveSheet.ChartArea.Select
  40.         ActiveSheet.ChartArea.Copy
  42.         ' On colle le graphe dans la présentation et on le redimensionne
  43.         Set Shape1 = Diapo1.Shapes.Paste
  44.         Shape1.Top = 40
  45.         Shape1.Left = 20
  46.         Shape1.Width = 430
  47.         Shape1.Height = 430
  48.        
  49.         ' Copie du graphe excel
  50.         Workbooks("Comparaison.xls" ).Sheets("Evolution de la taille" ).Activate
  51.         ActiveSheet.ChartArea.Select
  52.         ActiveSheet.ChartArea.Copy
  54.         ' On colle le graphe dans la présentation et on le redimensionne
  55.         Set Shape2 = Diapo2.Shapes.Paste
  56.         Shape2.Top = 40
  57.         Shape2.Left = 20
  58.         Shape2.Width = 430
  59.         Shape2.Height = 430
  60.        
  61.     End With
  62.    
  63.     ppapp.Activate
  64.      
  65. End Function


 
J'ai essayé en enregistrant une macro, mais cela ne fonctionne pas...  
 
quelque chose dans le genre :

Code :
  1. Diapo1.activate
  2. Diapo1.select("rectangle 2" )
  3. selection.copy
  4. Diapo2.activate
  5. Diapo2.shapes.paste


 :??:  
 
merci à ceux qui me répondront  :jap:


Message édité par minimoack le 30-01-2013 à 09:08:50
Reply

Marsh Posté le 29-01-2013 à 14:55:58   

Reply

Marsh Posté le 30-01-2013 à 09:57:19    

C'est bon, c'est bon, j'ai trouvé toute seule :)
 

Code :
  1. Diapo1.Shapes("Rectangle 2" ).Copy
  2. Diapo2.Select
  3. Diapo2.Shapes.Paste


Message édité par minimoack le 30-01-2013 à 09:57:44
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed