[mDF] Peut-on piloter par VBA l'affichage du mDF XLcalendar 1.1 sur feuille de calcul ?
Si l'utilitaire mDF XLcalendar est bien installé sur le poste de travail cible, il est tout à fait possible de contrôler son affichage sur feuille de calcul par code VBA.
Pour provoquer l'affichage en mode normal :
Sub mDFCal_PositionAuto()
Application.Run ("mDFXLcalShow")
End Sub
Pour refermer le mDF XLcalendar :
Sub mDFCal_Close()
Application.Run ("mDFXLcalHide")
End Sub
Pour ouvrir le mDF XLcalendar centré au milieu de la fenêtre :
Sub mDFCal_Centre()
'Attention ici à l'utilisation des apostrophes à l'intérieur des guillemets
Application.Run ("'mDFXLcalShow -1'")
End Sub
Pour forcer l'ouverture du mDF XLcalendar à un endroit précis de la fenêtre :
Sub mDFCal_PositionXY()
'Attention ici à l'utilisation des apostrophes en début et fin de chaine
Dim X As Long, Y As Long
X = 50
Y = 20
Application.Run ("'mDFXLcalShow 1," & X &"," & Y &"'")
End Sub
Par ailleurs, vous pouvez également ajouter la Référence au mDF XLcalendar depuis l'éditeur VBE, via le menu Outils / Références...
Puis, vous cochez mDF_XLcalendar dans la liste et faites OK.
Avec cette référence ajoutée à votre classeur, le contrôle d'affichage du mDF XLcalendar s'en trouve simplifié. La méthode "Application.Run()" n'est plus nécessaire :
Sub mDFCal_PositionAuto()
mDFXLcalShow
End Sub
Sub mDFCal_Close()
mDFXLcalHide
End Sub
Sub mDFCal_Centre()
mDFXLcalShow -1
End Sub
Sub mDFCal_PositionXY()
Dim X As Long, Y As Long
X = 50
Y = 20
mDFXLcalShow 1, X, Y
End Sub
|