Discussion :

[graphikris]

Bonjour,

Il y a eu de multiples discussions à ce sujet mais je n'ai pas trouvé chaussure à mon pied.

Grace à ce type de code, on peut redimensionner et placer des graphes ou images dans Powerpoint via une macro Excel :

Code :

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

1
2
3
4
5
6
7
8
' on met en forme le graphique 1
  With Pres.Slides(2).Shapes(1)
.Name = "Graphe1" 'personnaliser le nom de l'image insérée
.Left = 80 'position horizontale dans le slide
.Top = 60 'position verticale dans le slide
.Height = 150 'hauteur image
.Width = 600 'largeur image
End With

Mon souci c'est qu'il faut y aller à tâtons. Alors comment faire si on prend le principe à l'envers.
Je m'explique : Une fois les graphes et tableaux mis dans PPT, je redimensionne et les place exactement comme je veux. Comment obtenir leurs coordonnées (position horizontale, verticale, hauteur, largeur) afin que j'aille les inscrire dans mon code VBA ?

Cordialement

[Minise]

d'après ce que j'ai compris suffit d'écrire à l'envers !

Code :

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

1
2
3
4
5
6
7
 
With Pres.Slides(2).Shapes(1)
gauche = .Left
haut = .Top
hauteur = .Height 
etc = .Width
end with

[graphikris]

Bonjour Minise,
Ce n'est pas du tout ça.

Ca concerne les dimensions et le positionnement. Les chiffres (80,60,150,600), je suis obliger de les mettre au hazard, puis d'ajuster (donc de réaliser X fois la macro) jusqu'à obtenir les bonnes tailles.
Je voudrais savoir comment les trouver directement dans ma presentation PPT afin de les saisir dans mon code VBA.

[Minise]

sous powerpoint elles sont disponibles mais en cm (format de la zone de graphique -> taille / position ), me semble pas que tu peux mettre directement des valeurs en cm en vba.
VBA utilise le point, tu peux convertir tes cm en point et après les injecter dans ton code.

[graphikris]

J'ai essayé avec un convertisseur mais ça ne correspond pas
Dsl