Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

VBA-Begriff: Beispiel zur Text-Eigenschaft

In diesem Beispiel wird eine neue Befehlsleiste mit dem Namen "Custom" erstellt. Dieser Befehlsleiste wird dann ein Kombinationsfeld mit vier Listenelementen hinzugefügt. Mit Hilfe der Text-Eigenschaft wird anschließend "Item 3" als Standardlistenelement festgelegt.

Set myBar = CommandBars _
    .Add(Name:="Custom", Position:=msoBarTop, _
    Temporary:=True)
With myBar
    .Controls.Add Type:=msoControlComboBox, ID:=1
    .Visible = True
End With
Set testComboBox = CommandBars("Custom").Controls(1)
With testComboBox
    .AddItem "Item 1", 1
    .AddItem "Item 2", 2
    .AddItem "Item 3", 3
    .AddItem "Item 4", 4
    .Text = "Item 3"
End With

In diesem Beispiel wird eine neue Sprechblase im Office-Assistenten mit einer Überschrift, Text und drei Regionsoptionen erstellt. Mit der Text-Eigenschaft wird für jedes Kontrollkästchen eine Beschriftung erstellt.

With Assistant.NewBalloon
    .Heading = "Regional Sales Data"
    .Text = "Select a region"
    For i = 1 To 3
        .CheckBoxes(i).Text = "Region " & i
    Next
    .Show
End With

In diesem Beispiel wird eine Sprechblase im Office-Assistenten mit einer Überschrift, Text und drei Regionsoptionen erstellt. Mit der Text-Eigenschaft werden Anweisungen für den Benutzer erstellt, die sich auf den Inhalt der Sprechblase beziehen.

With Assistant.NewBalloon
    .Heading = "Regional Sales Data"
    .Text = "Select a region"
    For i = 1 To 3
        .CheckBoxes(i).Text = "Region " & i
    Next
    .Show
End With

Im folgenden Beispiel wird eine neue Sprechblase im Office-Assistenten erstellt, die eine unterstrichene Überschrift, roten Text sowie blauen, unterstrichenen Text enthält.

With Assistant.NewBalloon
    .Heading = "Underlined {ul 1}Heading{ul 0}"
    .Text = "Some {cf 249}Red{cf 0} text and some " & _
    "underlined {cf 252}{ul 1}Blue{ul 0}{cf 0} text."
    .Show
End With

In diesem Beispiel wird eine neue Sprechblase im Office-Assistenten erstellt, die eine WMF-Datei enthält.

With Assistant.NewBalloon
    .Heading = "Underlined {ul 1}Heading{ul 0}"
    .Text ="{WMF ""C:\Favorites\MyPicture.WMF""}"
    .Show
End With