VBA-Programmierung in Microsoft Excel

VBA-Begriff: Property Let-Anweisung (Beispiel)

In diesem Beispiel wird die Property Let-Anweisung verwendet, um eine Prozedur zu definieren, die einer Eigenschaft einen Wert zuweist. Die Eigenschaft bestimmt die Farbe des Stiftes in einer Grafikanwendung.

Dim AktFarbe As Integer
Const SCHWARZ = 0, ROT = 1, GRÜN = 2, BLAU = 3
' Die StiftFarbe-Eigenschaft für eine Grafikanwendung wird festgelegt.
' Die auf Modulebene deklarierte Variable AktFarbe wird mit einem
' numerischen Wert belegt, der die zum Zeichnen verwendete Farbe
' angibt.
Property Let StiftFarbe(Farbe As String)
    Select Case Farbe    ' Zeichenfolge für Farbe prüfen.
        Case "Rot"
            AktFarbe = ROT    ' Wert für Rot zuweisen.
        Case "Grün"
            AktFarbe = GRÜN    ' Wert für Grün zuweisen.
        Case "Blau"
            AktFarbe = BLAU    ' Wert für Blau zuweisen.
        Case Else
            AktFarbe = SCHWARZ    ' Standardwert zuweisen.
    End Select
End Property
' Die folgende Zeile legt die StiftFarbe-Eigenschaft einer
' Grafikanwendung fest, indem die Property Let-Prozedur aufgerufen
' wird.
StiftFarbe = "Rot"