Discussion :

[sash6]

Bonjour tout le monde,

Voici mon problème: lorsque j'essaie d'ajouter des tableaux depuis excel, lors de l'importation la mise en forme du tableau n'est respectée que partiellement. Il y a-t-il un moyen d'importer le tableau tel quel vers la présentation ppt? J'ai essayé de l'importer en tant que image avec l'enregistreur de macros mais ça ne marche pas...

Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Public Sub ModifierPresentationExistante()
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim tbl As Range
Dim NbLignes As Integer
 
Sheets("Feuil2").Select
[TCD_Mt_Societe].Select
Set tbl = ActiveCell.CurrentRegion
        tbl.Offset(2, 0).Resize(tbl.Rows.count - 3, _
        tbl.Columns.count).Activate '-3 car il faut enlever les 2 lignes de l'en-tête et le total du TCD
NbLignes = tbl.Rows.count - 3
 
Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = True
Set PptDoc = PptApp.Presentations.Open("C:\maprésentation.ppt")
 
With PptDoc
    'insère le contenu de la cellule A2 dans la deuxième zone de texte,
    'du 3eme slide
    .Slides(1).Shapes(1).TextFrame.TextRange.Text = "blablablala" & Sheets("Consolidation").[A2]
    .Slides(5).Shapes(1).TextFrame.TextRange.Text = Right(Sheets("Tableaux de synthèse").[B2], 32)
    .Slides(5).Shapes(2).TextFrame.TextRange.Text = "blala(" & NbLignes & " sociétés référencées)"
 
    Sheets("Tableaux de synthèse").[A3:G13].Copy
    .Slides(5).Shapes.Paste
 
    With .Slides(5).Shapes(.Slides(5).Shapes.count)
        .Name = "blibla" 'Renomme l'objet collé
        .Left = 260 'position horizontale dans le slide
        .Top = 200 'position verticale dans le slide
        .Height = 200 'hauteur
        .Width = 400 'largeur
    End With
 
    'sauvegarde la présentation
    .Save
End With
 
'ferme la présentation
PptDoc.Close
'ferme powerpoint
PptApp.Quit
 
End Sub

[sash6]

question bête il suffit d'agrandir le tableau jusqu'à ce qu'il "récupère" sa mise en forme...

[sash6]

ouais bah... c'est toujours pas ça... Ce qui m'a induit en erreur, c'est la macro que j'avais enregistrée sur PowerPoint. En VBA ppt il y a une propriété fort utile qui s'appelle shaperange. Donc mon problème demeure bonnes âmes

[sash6]

ça y est! réponse trouvée pour de vrai! juré-craché
il suffit de mettre pastespecial (au lieu de paste) et on a le choix.