zoom lors d'un survol d'une image

[huître]

bonjours,

je voudrais savoir s'il y a possibilité de faire un zoom lors du survol d'une image sur un powerpoint

merci d'avance

[Philippe JOCHMANS]

Bonjour

Il faut passer par du code : Comment associer une macro à l'évènement 'Déplacement de la souris' sur un Shape ?

Philippe

[huître]

bonjours Philippe
j'ai était voir le lien

Code :

1
2
3
4
5
6
7
8
Sub OnMouveMouse()
    With ActivePresentation.Slides(1) _
        .Shapes(3).ActionSettings(ppMouseOver)
            .Action = ppActionRunMacro
            .Run = "NomMacroDeclenchee"
            .AnimateAction = True
    End With
End Sub

alors comment faire quand on à plusieurs images dans le slide
et comment faire une macro zoom pour que ce soit applicable à cette procédure et comment la dézoomer ensuite?

[Philippe JOCHMANS]

Re

Il faudrait donner plus de détails, comme :

Ta version de PPT.
La proportion du zoom et comment tu veux que tout cela interagisse.

Philippe

[huître]

ben sur powerpoint 2003

sinon pour la dimension du zoom au moin augmenter la taille de 50% (je pense que la taille du zoom n'a pas trop d'importance)

et ensuite survoler les images ,si le curseur est sur la l'image alors elle s'agrandit
sinon elle rétrécie

mais bon je pense que ce n'est pas du tout évident de faire du vba sur access
mais après mm si c'est juste pour valoriser le powerpoint je trouve que cette fonctionnalité est vraiment intéressante

[Philippe JOCHMANS]

Re

Si cela peut attendre ce week-end, car je suis très occupé, à moins que quelqu'un est la solution, qu'il n'hésite pas.

Philippe

[huître]

alors moi j'ai récupérer quelques codes sur le net

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub OnClickMouse()
    With ActivePresentation.Slides(1) _
        .Shapes(1).ActionSettings(ppMouseOver)
            .Action = ppActionRunMacro
            .Run = "centrage"
            .AnimateAction = True
    End With
End Sub
 
 
Sub centrage()
 
Dim osld As Slide
Dim oshp As Shape
Dim x As Integer
Dim y As Integer
 
With ActivePresentation.PageSetup
x = .SlideWidth / 2
y = .SlideHeight / 2
End With
 
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
 
If oshp.Type = msoPicture Then
oshp.Height = 200
oshp.Width = 200
oshp.Left = x - (oshp.Width / 2)
oshp.Top = y - (oshp.Height / 2)
End If
 
Next
Next
 
End Sub

alors je n'arrive pas à adapter le deuxieme code ,
alors ce code prend toute les images et les centre et redimentionne la taille.

mais ce n'est pas ce que je veux

je veux centrer et agrandir le fichier lorsque le curseur l'image sur laquelle le curseur se positionne

voilà merci d'avance