Utilisation Evaluate VBA PPT

Version imprimable

04/03/2010, 15h58
benoxy

Utilisation Evaluate VBA PPT

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:

Evaluate("getForm" & Trim(lbNumFile) & Trim(lbQr) "(" & noNum & ")")
04/03/2010, 17h37
Invité

Bonjour

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

Philippe
04/03/2010, 19h30
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:

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 ?
04/03/2010, 19h52
Invité

Re

:koi: 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

Re Re

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:

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

05/03/2010, 03h27
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
05/03/2010, 09h39
benoxy

Sur Excel cela existe :http://msdn.microsoft.com/en-us/libr...ice.11%29.aspx

Mais effectivement je suis passé par un select case.

Merci tout de même.