Dim pSymbolSubstitution As ISymbolSubstitution = pLayer pSymbolSubstitution.SubstituteType = esriSymbolSubstituteType.esriSymbolSubstitulor Dim pColor As IRgbColor = New RgbColorClass() pColor.Red = 255 pSymbolSubstitution.MassColor = pColor 'Refresh
アノテーション レイヤーに代替シンボルを追加する方法（色のみ指定）
2016/9/1 (木)
![Pinterest](https://www.pinterest.com/pin/create/button/?url=https%3A%2F%2Fwww.wingfield.gr.jp%2Farchives%2F7853&media=https://www.wingfield.gr.jp/wp/wp-content/uploads/2024/05/WINGFIELD_since1995_200x200.png&description=[vb title="VBA"] Dim pSymbolSubstitution As ISymbolSubstitution = pLayer pSymbolSubstitut){kind=link}