Styles überprüfen

Hallo Susan,

vielleicht hilft dir folgendes Sample-Skript weiter:

Samples -> ArcMap -> Symbols -> Get a Symbol from the Style Gallery

Der folgende Code gibt dir zumindest aus, ob dein style MarkerSymbols enthaelt:

Public Sub UseSymbolFromStyleGallery()

Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument

Dim pStyleGallery As IStyleGallery
Set pStyleGallery = pMxDoc.StyleGallery

Dim pStyleStorage As IStyleGalleryStorage
Set pStyleStorage = pStyleGallery

Dim pEnumStyleGall As IEnumStyleGalleryItem
Dim pStyleItem As IStyleGalleryItem
' Dim pMarkerSym As IMarkerSymbol

'Initialize the style gallery
Dim strStyleName As String

strStyleName = "Eigene.Style"

Set pEnumStyleGall = pStyleGallery.Items("Marker Symbols", strStyleName, _
"Default")

pEnumStyleGall.Reset

If pStyleItem Is Nothing Then
MsgBox "Marker symbols in " & strStyleName & " wurden nicht gefunden."
End If

End Sub


Gruss

Uwe