Discussion :

[benoxy]

Bonjour,

Quelqu'un sait comment utiliser la fonction Evaluate dans le VBA de PPT.

Mon objectif est de lancer une fonction recomposer par concaténation :
exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Evaluate("getForm" & Trim(lbNumFile) & Trim(lbQr) "(" & noNum & ")")

[Invité]

Bonjour

Que veux-tu faire, car cette fonction n'a pas l'air d'exister.

Philippe

[benoxy]

J'ai un ensemble de fonctions dans un module du type getForm153qr1( NumSld as Integer ).
Les valeurs 153 et qr1 sont variables ( cela peut être 123 et qr0 ce qui donne getForm123qr0( NumSld as Integer ) donc pour lancer ma fonction en fonction de la valeur des variables j'ai besoin de reconstituer le nom de la fonction . donc je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
lbNumFile = "153" 
lbQr = "qr1"
numSld = 10
Evaluate("getForm" & Trim(lbNumFile) & Trim(lbQr) & "(" numSld ")")

Pour info j'ai essayé cela sans succés faut il une librairie spécifique pour utiliser cette fonction ?

[Invité]

Re

je t'avoue que j'ai du mal à comprendre, car si j'ai bien compris tu as plusieurs fonctions qui ont des noms ressemblants à part tes variables.

Pourquoi ne pas créer une fonction générique et passer ces variables en paramètres ?

Personnellement, je ne vois pas ce que je peux faire pour toi.

Philippe

[benoxy]

Ces fonctions créent des shpapes différents ( tapéze ; rectangle , etc ) en fonction d'une image ( exp nom : 153.bmp ) .

Voici par exemple une fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
 
Procedure  de chargement de l'image ( 20 slides sur lequel on charge des images différentes )
 
Public Sub getLoadImage(ByVal numImg As Integer, ByVal intImgClick As Integer, ByVal numSld As Integer)
 
    ' ===== déclaration des variables =====
    Dim objSld As Slide         ' va permettre de parcourir les diapositives du diaporama
    Dim objShp As Shape         ' va permettre de parcourir les éléments d'une diapositive
 
    Dim strPath As String
    Dim lbFichier As String
    Dim blRésult As Integer
 
    strPath = ActivePresentation.Path
 
    Set objSld = ActivePresentation.Slides(numSld)
    objSld.Select
 
 
    If Len(Trim(Str(numImg))) = 1 Then
        lbFichier = "0" & Trim(Str(numImg))
    Else
        lbFichier = Trim(Str(numImg))
    End If
    Set objShp = objSld.Shapes.AddPicture(FileName:=strPath & "\images\" & lbFichier & ".bmp", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=130, Top:=86, Width:=460, Height:=368)
    With objShp
        .Fill.Transparency = 0#
        .LockAspectRatio = msoFalse
        .Height = 319.38
        .Width = 431#
        .Left = 1.88
        .Top = 221#
        .IncrementTop -2#
    End With
 
    Set objSld = Nothing
    Set objShp = Nothing
 
    'Charge les formes sur l'image zonable s'il y en a
    If intImgClick = 1 Then
        'MsgBox "Debut - Img Cliquable"
        'Evaluate ("getForm" & Trim(lbFichier) & Trim(lbQr) & "(" & numSld & ")")
        'MsgBox "Fin - Img Cliquable"
    end if
 
End sub
 
Exemple fonction création shape
Public Function getForm153qr1(idSld As Integer) As Integer
    ' ===== déclaration des variables =====
    Dim objSld As Slide         ' va permettre de parcourir les diapositives du diaporama
    Dim objShp As Shape         ' va permettre de parcourir les éléments d'une diapositive
 
    Set objSld = ActivePresentation.Slides(idSld)
    objSld.Select
 
     'MsgBox "getForm153qr1"
 
    Set objShp = objSld.Shapes.AddShape(msoShapeRectangle, 161.5, 270#, 113.5, 73.75)
    With objShp
        .Name = "zone1"
        .AutoShapeType = msoShapeRectangle
    End With
 
    Set objShp = Nothing
 
    Set objShp = objSld.Shapes.AddShape(msoShapeRectangle, 155.88, 394.75, 28.38, 39.62)
    With objShp
        .Name = "zone2"
        .AutoShapeType = msoShapeRectangle
        .IncrementRotation 7.22
    End With
    Set objShp = Nothing
 
    Set objShp = objSld.Shapes.AddShape(msoShapeRectangle, 189.88, 451.5, 90.75, 73.62)
    With objShp
          .Name = "zone3"
          .AutoShapeType = msoShapeRectangle
    End With
    Set objShp = Nothing
 
    Set objSld = Nothing
 
    getForm153qr1 = 1
 
 
End Function

[Invité]

Re

Il semble que Eval (et non evaluate) n'existe pas sous PowerPoint.

Comme tes fonctions sont déjà défini, personnellement pour les lancer je passerais par des Select ... Case.

Philippe