Quiero cambiar el símbolo de las características y la leyenda programáticamente. Cuando uso este código
Dim pSymbolSelector As ISymbolSelector
Set pSymbolSelector = New SymbolSelector
Dim pMarker As ISimpleMarkerSymbol
Set pMarker = New SimpleMarkerSymbol
If Not pSymbolSelector.AddSymbol(pMarker) Then
MsgBox "No se pudo agregar el símbolo"
ElseIf pSymbolSelector.SelectSymbol(0) Then
Dim pSymbol As ISymbol
Set pSymbol = pSymbolSelector.GetSymbolAt(0)
End If
entonces el Selector de Símbolos está abierto, pero cuando selecciono un símbolo no se aplica en la capa actual en la Tabla de Contenidos.