Parametrage une image PPT depuis VBA Fermé

Question

Bonjour le forum, 

Je suis entrain de travailler sur une macro qui permet de transférer des tableaux excel à PPT.  Lorsque Excel colle sur PPT il n'y pas de mise en forme et je cherche à savoir comment redimensionner mon image depuis VBA. 
J'ai le code suivant. Je voudrais qu'une fois que l'image est collée sur PPT la redimensionner à la main afin de retrouver les arguments Left/Top/Height/Width  pour pouvoir les mettre ensuite dans la macro. Malheureusement, lorsque je vais dans "Format de l'image" les menus taille et position sont en cm. Donc je n'arrive pas à les indiquer dans ma macro. 
Est ce que quelqu'un aurait une idée de comment contourner le problème.

Worksheets("Activity").Range("E10:V47").Copy
Pptdoc.Slides(40).Shapes.PasteSpecial ppPasteEnhancedMetafile
nb10 = Pptdoc.Slides(40).Shapes.Count
With Pptdoc.Slides(40).Shapes(nb10)
                               .Name = XXXX
                               .Left = ???
                               .Top = ????
                               .Height = ????
                               .Width = ????


Merci à vous et bonne journée

Rod

RodyRody · Answer

Désolé je reformule ma question différemment. 
A quoi correspondent une hauteur de 14.49 cm et une largeur 25.41 cm dans le langage VBA 
           .Height = 
           .Width =  


Merci d'avance à tous.

Raitensama95 · Answer

Cher ami
Si tu as quelqu'un qui a Powerpoint 2003, alors lance l'enregistreur de macro et redimensionne convenablement ton image et appelles ta macro dans Powerpoint Redim_Image par exemple. Ensuite une fois que tu as collé ton image de Excel à Powerpoint sachant que le focus restera sur ton image. 
Ensuite tu appelles ta macro PPT via Excel dans ton code avec une instruction du type : Pptdoc.Application.Run "'Présentation Test.ppt'!Redim_Image"  et le tour est joué.
J'ai eu le même problème récemment et il m'a fallu rusé un peu ;-)

eriiic · Answer

Bonjour à tous,

comme tu réactives le sujet il y a une méthode :
expression.CentimetersToPoints(centimètres) pour convertir des cm en points.
Sinon vu qu'un point = 1/72 pouce => 1 point=0.035 cm (1/28.3465 cm plus précisément)

eric

Parametrage une image PPT depuis VBA

3 réponses

Discussions similaires

Newsletters