StatusBarMessage2 Nesnesi

StatusBarMessage2 nesnesi durum çubuğu mesajları için kullanılır. Oluşturma:

Dim StatusBar
Set StatusBar = Doc.CreateSObject("StatusBarMessage2")

Progress

• Dönüş Tipi: Void
• Parametreler:
• - current (Integer): Mevcut değer
• - total (Integer): Toplam değer
• Açıklama: İlerleme durumunu gösterir

Örnek Kullanım:

Sub Makro1()
    Dim StatusBar
    Set StatusBar = Doc.CreateSObject("StatusBarMessage2")
    
    Dim i, Toplam
    Toplam = 100
    For i = 1 To Toplam
        StatusBar.Progress i, Toplam
        ' İşlemler...
    Next
    
    Set StatusBar = Nothing
End Sub

Message

• Dönüş Tipi: Void
• Parametreler:
• - message (String): Mesaj
• Açıklama: Durum çubuğu mesajı gösterir

Örnek Kullanım:

Sub Makro1()
    Dim StatusBar
    Set StatusBar = Doc.CreateSObject("StatusBarMessage2")
    StatusBar.Message "İşlem yapılıyor..."
    ' İşlemler...
    Set StatusBar = Nothing
End Sub

---