Centrage d'une forme à l'aide de VBA dans PowerPoint 2003

Question

Je copie par programme des tableaux et des graphiques d'Excel vers PowerPoint.

Idéalement, je voudrais centrer les graphiques sur la diapositive et les redimensionner pour s'adapter à la diapositive si nécessaire.

Cela ne devrait pas être trop difficile, et je peux vérifier & modifier .Top, .Left, .Width, .Height de la forme très bien, mais comment puis-je trouver la largeur/hauteur de la lame elle-même pour faire le bon positionnement ?

Answer 1

Ce qui suit vous donnera la hauteur et la largeur ...

Il suffit de diviser par 2: D

Sub a() 
    Dim a As Presentation 
    Set a = ActivePresentation 
    MsgBox a.PageSetup.SlideHeight, a.PageSetup.SlideWidth 
End Sub 

HTH