Freigeben über

Resource.MaterialLabel property (Project)

  • Artikel

Dient zum Abrufen oder Festlegen der Beschriftung für Ressourcen der Art Material. Zeichenfolge mit Lese-/Schreibzugriff.

Syntax

Ausdruck. MaterialLabel

Ausdruck Eine Variable, die ein Resource-Objekt darstellt.

Hinweise

Die MaterialLabel -Eigenschaft gibt keine sinnvollen Informationen für nicht-Material Ressourcen, wie Personen oder Maschinen zurück. Festlegen eines Werts wird ein auffangbarer Fehler (Fehlercode 1101) Wenn Sie auf nicht-Material Ressourcen angewendet.

Beispiel

Dieses Beispiel durchläuft die Liste der Ressourcen im aktuellen Projekt und legt die Materialbezeichnung für alle Materialressourcen auf "Palette" fest. (Das Abfangen von Fehlern in diesem Beispiel dient nur dazu, zu veranschaulichen, wie Sie eine erwartete Ausnahme behandeln können. In einem realen Beispiel würden Sie wahrscheinlich einen Test wie den folgenden einschließen:

If InStr(R.Name, "bricks") <> 0 Then...

Der Test stellt sicher, dass Sie die Materialbeschriftung nur Pflasterziegeln, roten Ziegeln usw. zuordnen.)

Sub FixLabels() 
 Dim R As Resource 
 
 On Error GoTo ErrTrap: 
 
 For Each R In ActiveProject.Resources 
 If R.MaterialLabel <> "pallet" Then R.MaterialLabel = "pallet" 
 Next R 
 
 Exit Sub 
 
ErrTrap: 
 If Err.Number = 1101 Then 
 Err.Clear 
 Resume Next 
 Else 
 MsgBox Err.Description, vbExclamation, "Error" 
 End If 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.