<< Click to Display Table of Contents >> UserProperties (Sammlung)

Zugriffspfad: Application à UserProperties

 1  Beschreibung

Die Sammlung UserProperties enthält die Adresse des Benutzers, wie dies auf der Karteikarte Allgemein im Dialogfenster des Ribbonbefehls Datei | Einstellungen eingetragen wurde.

Die einzelnen Elemente dieser Sammlung sind vom Typ UserProperty.

 2  Zugriff auf die Sammlung

Es existiert während der gesamten Laufzeit von PlanMaker genau eine Instanz der UserProperties-Sammlung. Diese wird über Application.UserProperties angesprochen:

' Zeige die erste UserProperty (den Namen des Benutzers) an

MsgBox pm.Application.UserProperties.Item(1).Value

 3  Eigenschaften, Objekte, Sammlungen und Methoden

Eigenschaften:

▪Count R/O

 

Objekte:

▪Item → UserProperty (Defaultobjekt)

▪Application → Application

▪Parent → Application

Count (Eigenschaft, R/O)

Datentyp: Long

Liefert die Anzahl der UserProperty-Objekte in der Sammlung, also die Zahl aller Adressbestandteile (Name, Straße etc.).

Dieser Wert ist konstant 18, da es genau 18 derartige Elemente gibt.

Item (Zeiger auf Objekt)

Datentyp: Object

Liefert ein einzelnes UserProperty-Objekt, mit dem Sie einen einzelnen Adressbestandteil (Name, Straße etc.) der Adresse des Benutzers lesen oder setzen können.

Welches UserProperty-Objekt Sie erhalten, hängt von dem Zahlenwert ab, den Sie an Item übergeben. Die folgende Tabelle zeigt die erlaubten Werte:

smoUserDataTitle                  = 1  ' Titel

smoUserDataName                   = 2  ' Name

smoUserDataInitials               = 3  ' Initialen

smoUserDataCompany                = 4  ' Firma

smoUserDataDepartment             = 5  ' Abteilung

smoUserDataAddress1               = 6  ' Adressfeld 1

smoUserDataAddress2               = 7  ' Adressfeld 2

smoUserDataZip                    = 8  ' Postleitzahl

smoUserDataCity                   = 9  ' Stadt

smoUserDataCountry                = 10 ' Land

smoUserDataPhone1                 = 11 ' Telefon 1

smoUserDataPhone2                 = 12 ' Telefon 2

smoUserDataPhone3                 = 13 ' Telefon 3

smoUserDataFax                    = 14 ' Telefax

smoUserDataEmail1                 = 15 ' E-Mail-Adresse 1

smoUserDataEmail2                 = 16 ' E-Mail-Adresse 2

smoUserDataEmail3                 = 17 ' E-Mail-Adresse 3

smoUserDataWebsite                = 18 ' Website

Beispiele:

' Den Namen des Benutzers anzeigen

MsgBox pm.Application.UserProperties.Item(1).Value

 

' Die E-Mail-Adresse 2 auf test@example.com ändern

With pm.Application

 .UserProperties.Item(smoUserDataEmail2).Value = "test@example.com"

End With

Application (Zeiger auf Objekt)

Datentyp: Object

Liefert das Application-Objekt.

Parent (Zeiger auf Objekt)

Datentyp: Object

Liefert das übergeordnete Objekt, also Application.