Dynproperties of function "Screen: Move center"
Hi,
I wonder if it is possible to call function "Screen: Move center" in VBA (or VSTA) code after setting dynamically its properties ; I have two functionnalities which depend on it :
- I have in VBA code the name of the picture and the name of the element I want to center on, and I want to have only one function of this type created (too many pictures and elements in my project to create a function for each).
- I have in VBA code the name of the picture to open with minimum zoom (1%)
I tried this sample code for minimum zoom :
VBA Code:
Dim zFCT As RtFunction
Stop
Set zFCT = thisProject.RtFunctions.Item("TestFunction")
With zFCT
Debug.Print "First result : " & .DynProperties("PictSwitch[0].Picture")
.DynProperties("PictSwitch[0].Picture") = strVueNiveau
Debug.Print "Second result : " & .DynProperties("PictSwitch[0].Picture")
.DynProperties("MidParameter.Type") = 0
.DynProperties("MidParameter.ZoomType") = 1
.DynProperties("MidParameter.ZoomPercent") = 1
.Start
End With
Results in debug are :
First result : PictureNameSetInEditor
Second result :
And the function does not open the picture.
"(PictureNameSetInEditor" is the name of the picture selected in editor, when creating the function "TestFunction"
Note : The function gives expected result when first executed directly (via a button) : it opens picture with minimum zoom.
Am I missing something ?
Regards,
Cl©ment.
This is a migrated post! Originally posted on 13.11.2013 by user crl_snef. Please be aware that information can be outdated.