Dim pSymbolSubstitution As ISymbolSubstitution = pLayer pSymbolSubstitution.SubstituteType = esriSymbolSubstituteType.esriSymbolSubstitulor Dim pColor As IRgbColor = New RgbColorClass() pColor.Red = 255 pSymbolSubstitution.MassColor = pColor 'Refresh
記事