VBA label font değişimi hakkında

[efsaneone]

Arkadaşlar merhaba

İşyerinde bir visual basic projesi hazırlamam gerekti.Projede yaklaşık 100 form ve formların üzerinde 300 e yakın label var label var . Projeyi bitirdikten sonra labelların fontunu değişmemi istediler tüm labelların fontunu tek seferde değiştirebileceğim bir yöntem yada kod varmı?

Teşekkürler

 

[hamitcan]

Private Sub UserForm_Initialize()
    Dim f As New StdFont
    f.Name = "Vivaldi"
    For Each obj In UserForm1.Controls
        If TypeName(obj) = "Label" Then Set obj.Font = f
    Next
End Sub

şeklinde dener misiniz?

 

[efsaneone]

teşekkürler

Akşam deneyeceğim
işyerinde VBA yok