Bonjour à tout le forum
J'ai un petit soucis de redimensionnement de mon MonthView. Je désire définir moi-même le hauteur et la largeur. Mais en vain.
J'ai essayé dans les propriétés, les valeurs par défaut se remettent automatiquement.
J'ai essayé en VBA également en vain. Mes paramètres sont pris en compte excepté la hauteur et la largeur.
J'ai essayer
Mais cette modification n'affecte pas le calendrier mais la dimension de mon USF.
J'ai recherché toute l'après-midi d'hier une solution dans les différents sites et forum, tant français qu'anglo-saxons mais sans succès.
Merci d'avance à ceux qui aurait une soluce ou une amorce de soluce.
A++
J'ai un petit soucis de redimensionnement de mon MonthView. Je désire définir moi-même le hauteur et la largeur. Mais en vain.
J'ai essayé dans les propriétés, les valeurs par défaut se remettent automatiquement.
J'ai essayé en VBA également en vain. Mes paramètres sont pris en compte excepté la hauteur et la largeur.
Code:
Private Sub UserForm_Initialize()
Dim CalendrierSuiv As MonthView
....
' <-- Définition du calendrier
Set CalendrierSuiv = Me.MonthView1
With CalendrierSuiv
.Width = 85
.Height = 70
.FontSize = 8
.FontName = "Arial"
.TitleBackColor = RGB(0, 128, 0)
.TitleForeColor = RGB(0, 0, 0)
.ForeColor = RGB(0, 0, 255)
.MonthBackColor = RGB(233, 210, 120)
.TrailingForeColor = RGB(216, 216, 216)
.StartOfWeek = mvwSunday
.ShowWeekNumber = False
.ShowToday = False
End WithJ'ai essayer
Code:
.....
.Me.Width = 85
.Me.Height = 70
.....Mais cette modification n'affecte pas le calendrier mais la dimension de mon USF.
J'ai recherché toute l'après-midi d'hier une solution dans les différents sites et forum, tant français qu'anglo-saxons mais sans succès.
Merci d'avance à ceux qui aurait une soluce ou une amorce de soluce.
A++