WILFRIED
XLDnaute Impliqué
Salut a tous et toutes,
Je lutte depuis quelque temps avec un composent MSFORMS que j'ai ajouter :
Microsoft Office Web Composents 11.0
J'utilise la control CHartspace qui me permet d'afficher un graphique dans un USF.
Je lance mon usf à l'overture de mon classeur et la il me demande :
'cette application est sur le point d'initialiser les contrôles activeX potentiellement non sûrs. Si la source de ce fichier est fiable, cliquer sur OK pour que les contrôles soient initialisés à l'aides des paramètres de l'espace de travails.'
J'utilise également un api pour récuperer la taille de l'affichage :
Private Declare Function GetSystemMetrics Lib 'user32' (ByVal nIndex As Long) As Long
'Constantes utilisées par GetSystemMetrics
Const SM_CXSCREEN = 0 ' Largeur de l'ecran
Const SM_CYSCREEN = 1 ' Hauteur de l'écran
Sub Get_System_Metrics()
'Récupération de la résolutions d'affichage ordi par API
'largeur
YVal = GetSystemMetrics(SM_CYSCREEN)
'hauteur
XVal = GetSystemMetrics(SM_CXSCREEN)
End Sub
j'ai mis application.displayalerte=false dans mon code mais cela ne fonctionne toujours PAs ..
Si quelqu'un avait une idée et/ou une suggestion je suis preneur.
A+
Je lutte depuis quelque temps avec un composent MSFORMS que j'ai ajouter :
Microsoft Office Web Composents 11.0
J'utilise la control CHartspace qui me permet d'afficher un graphique dans un USF.
Je lance mon usf à l'overture de mon classeur et la il me demande :
'cette application est sur le point d'initialiser les contrôles activeX potentiellement non sûrs. Si la source de ce fichier est fiable, cliquer sur OK pour que les contrôles soient initialisés à l'aides des paramètres de l'espace de travails.'
J'utilise également un api pour récuperer la taille de l'affichage :
Private Declare Function GetSystemMetrics Lib 'user32' (ByVal nIndex As Long) As Long
'Constantes utilisées par GetSystemMetrics
Const SM_CXSCREEN = 0 ' Largeur de l'ecran
Const SM_CYSCREEN = 1 ' Hauteur de l'écran
Sub Get_System_Metrics()
'Récupération de la résolutions d'affichage ordi par API
'largeur
YVal = GetSystemMetrics(SM_CYSCREEN)
'hauteur
XVal = GetSystemMetrics(SM_CXSCREEN)
End Sub
j'ai mis application.displayalerte=false dans mon code mais cela ne fonctionne toujours PAs ..
Si quelqu'un avait une idée et/ou une suggestion je suis preneur.
A+
