[VBA-Powerpoint] Agrandir une image

[marsupilami34]

Bonjour à tous,

Voila, je réalise une diapo powerpoint avec des images qui sont pas très grandes. Je voudrais lorsque je clique dessus qu'elle s'agrandisse et lorsque je reclique dessus, qu'elle redevienne comme avant.

Pour réaliser cela, faut-il passer par une macro ?
Si oui quelle est la fonctionalité pour le faire ?

Merci d'avance pour votre aide.

Marsup

[marsupilami34]

Me revoila,

en utilisant l'éditeur de macro j'ai le code suivant

Code :

1
2
3
4
5
6
 
    ActiveWindow.Selection.SlideRange.Shapes("Picture 10").Select
    With ActiveWindow.Selection.ShapeRange
        .ScaleWidth 1.93, msoFalse, msoScaleFromBottomRight
        .ScaleHeight 1.93, msoFalse, msoScaleFromBottomRight
    End With

Après dans paramètres des actions je lui affecte la macro lors d'un clic.
Mais rien ne se passe. L'image reste à son état initial.

Quelqu'un peut m'aider ?

Merci

Pour plus d'informations,
Ma macro marche mais quand je ne suis pas en mode diaporama.
Quand je suis en mode diaporame, c'est là que rien ne se passe
Je ne comprends pas

Personne n'a d'idée ?

[marsupilami34]

J'ai du nouveau et je comprends de moins en moins.
Je mets par exemple un mesgbox() dans ma macro.
Lorsue je clique sur mon image, mon message s'affiche mais l'image n'a pas bougé ???????

Personne n'a vraiment d'idée. Pourquoi ca ne veut pas agrandir mon image ?

[ouskel'n'or]

Si ça peut te consoler, je faisais tourner des objets dans Word ou Excel mais je n'ai jamais réussi dans power-Point.
C'est très vieux (1997 ou 18, j'ai fait des progrès depuis) mais si tu trouves, je regarderai pour t'aider à simplifier ton code
Désolé, je n'ai pas pu m'en empêcher

Allez, pour te montrer que je suis plein de bonne volonté, j'ai essayé ça

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub TuVasLaRedimensionnerStimage()
Dim Limage as shape
    MsgBox "coucou"
    Set Limage = ActiveWindow.Selection.SlideRange.Shapes(1)
    With Limage
        .Visible = msoFalse
        .Height = 289.62
        .Width = 386.25
        For i = 1 To 100000
            DoEvents
        Next
        .Visible = msoCTrue
    End With
End Sub

Même resultat, avec le coucou et tout. Veut pas !

Hors diaporama, la macro fonction, je confirme.

[maxime115]

Voici un code, il fonctionne chez moi

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub aggrandissonsetrétrésissonslimage ()
'en supposant que la largeur de l'image soit inférieure à 200 initiallement 
If Activepresentation.slides(1).shapes(1).Width < 200 then
With Activepresentation.slides(1).shapes(1)
.Height = Activepresentation.Slides(1).Shapes(1).Height + 200
.Width = Activepresentation.Slides(1).Shapes(1).Width + 200
end with
else
With Activepresentation.slides(1).shapes(1)
.Height = Activepresentation.Slides(1).Shapes(1).Height - 200
.Width = Activepresentation.Slides(1).Shapes(1).Width - 200
end with
end if
end sub

[ouskel'n'or]

Ton code fonctionne Diaporama lancé ?

[maxime115]

Oui sans aucun soucis, chez moi en tout cas...

[ouskel'n'or]

C'est intéressant. Comment lances-tu la macro aggrandissonsetrétrésissonslimage ? Et quelle version as-tu ?
Merci de ta réponse, ça pourrait intéresser du monde (!!!)

[maxime115]

J'ai affecté la macro à l'image tout simplement en faisant un clic droit sur celle-ci, puis en allant dans "Paramètres des actions". Ensuite, j'ai mis la macro lors du clic.
Sinon, j'utilise office 2003 mais cele fonctionnait très bien sous 2000...

Je met en lien la présentation...Voyons si elle fonctionne chez vous

La voici!

[ouskel'n'or]

Fonctionne pas chez moi
Doit manquer une référence.

[maxime115]

Hum bizarre oui....
Vous avez bien coché la case "Faire confiance au projet Visual Basic" ? mdrr

Sinon c'est bizarre car je n'est jamais touché aux references sur cet ordi la.... Donc celles qui sont activées sont celles par défaut...
En tout cas ca me laisse perplexe ceci... j'ai meme essayé sur un ordi du lycée vite fait et ca a fonctionné....

[ouskel'n'or]

Je vais creuser la question. Y'a pas de raison !
Malgré tout, merci, on sait maintement que c'est faisable, c'est ce qui est important. Reste plus qu'à...

[maxime115]

Oui reste plus qu'à....
C'est vrai l'important est de savoir que cela est faisable mais bon...si ca ne marche que chez moi ca sert un peu a pas grand chose ^^

[platine]

je viens de tester chez moi, ça fonctionne parfaitement !!

[ancoco]

moi sa fonctionne lorsque j'ai qu'une seul image mais la page de mon power point
est fait qu'il y a une image de fond et une autre image qui elle je veux qu'elle s'agrandisse et se rétressise mais la c'est le fond qui change et c'est pas beau.http://www.developpez.net/forums/ima.../icon_wink.gif


merci d'avance de pouvoir m'aidé

ancoco

[maxime115]

Oui c'est normal.
Le shape 1 correspond au fond, donc c'est lui qui bouge.
Essayez de changer tous les ID des shapes du code en modifiant le 1 en 2 par exemple.

(Désolé de la réponse tardive )