VBA-Programmierung in Microsoft Excel

VBA-Begriff: Beispiel zur Type-Eigenschaft

In diesem Beispiel wird das erste Steuerelement auf der Befehlsleiste "Custom" gesucht. Mit Hilfe der Type-Eigenschaft wird ermittelt, ob das Steuerelement eine Schaltfläche ist. Ist dies der Fall, dann wird die Oberfläche der Schaltfläche Copy (Kopieren, auf der Symbolleiste Standard) kopiert und in das Steuerelement eingefügt.

Set oldCtrl = CommandBars("Custom").Controls(1)
If oldCtrl.Type = 1 Then
    Set newCtrl = CommandBars.FindControl(Type:= _
        MsoControlButton, ID:= _
        CommandBars("Standard").Controls("Copy").ID)
    NewCtrl.CopyFace
    OldCtrl.PasteFace
End If

In diesem Beispiel werden Name, Typ und Wert einer Dokumenteigenschaft angezeigt. Sie müssen ein gültiges DocumentProperty-Objekt an die Prozedur übergeben.

Sub DisplayPropertyInfo(dp As DocumentProperty)
    MsgBox "value = " & dp.Value & Chr(13) & _
        "type = " & dp.Type & Chr(13) & _
        "name = " & dp.Name
End Sub