Parametrage une image PPT depuis VBA
RodyRody
Messages postés
44
Date d'inscription
Statut
Membre
Dernière intervention
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Parametrage une image PPT depuis VBA
- Ppt viewer - Télécharger - Présentation
- Image iso - Guide
- Légender une image - Guide
- Reduire taille image - Guide
- Acronis true image - Télécharger - Sauvegarde
3 réponses
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.
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.
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 ;-)
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 ;-)
