Redimensionnement du MonthView

[olivepao]

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.

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 With

J'ai essayer

.....
    .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++