Help needed with a macro code to add a marker icon

yes it has been created via ChatGPT...and very helpful so far.. Unfortunately I don't have any developer knowledge

@Nick: would you mind helping, with an explicit code example. Please ;-)

actually, based on your suggestion I got this working, which return the right MarkerGroup

Set MarkerGroup = MonDocActif.MapMarkerGroups.Item(8) --> this is working

now, I'm struggling with this part:

Set Marker = MarkerGroup.MapMarkers.Item(X), where I've tried with X has an interger or as a string
which return a Method or property not found

any hints, please ?

To include extra groups of icons or images or... try Package Folders.

This is a standard MindManager function that you find under Options.

Play around with it and no need for macro's or programming.

The method MapMarkerGroup.Item() accepts an integer from 1 to n, where n is the number of markers in the group. It does not accept the marker label.

The following function is extracted from another macro. It asserts a tag marker in a marker group by first finding the group, then searching for the tag by name. If it is not found then it is created. It shows how to iterate over the markers in a group. You could adapt this for icons instead of tags.

Function TagAssert(ByVal s_TagName As String) As MapMarker
    ' Find or create a tag in the group
    Dim m_Tag As MapMarker

    Set TagAssert = Nothing
    s_TagName = Trim(s_TagName)
    If Len(s_TagName) > 0 Then
        For Each m_Tag In TagGroupAssert
            If LCase(m_Tag.Label) = LCase(s_TagName) Then
                Set TagAssert = m_Tag
                Exit For
            End If
        Next
        If TagAssert Is Nothing Then ' first instance is definition
            Set TagAssert = TagGroupAssert.AddTextLabelMarker(s_TagName)
        End If
    End If

End Function

Function TagGroupAssert As MapMarkerGroup
	Dim m_Group As MapMarkerGroup

	If m__TagGroup Is Nothing Then
		Set m__TagGroup = TagGroupFind
		If m__TagGroup Is Nothing Then
			Set m__TagGroup = m__Document.MapMarkerGroups.AddTextLabelMarkerGroup(T_GroupName)
			m__TagGroup.MutuallyExclusive = False
		End If
	End If
	Return m__TagGroup

End Function
Private m__TagGroup As MapMarkerGroup

Thanks Nick. I think I'm almost there, but still having 1 major issue: still couldn't find the right code to apply my marker.

I was able to retrieve the category id (Emoticones=8), my custom icon id (custom Icon 1 =8) and the label of my custom icon (="Custom Icon 1")

Any help to tackle the remaining issue would be highly appreciated. I'm totally desperate 😵
Thanks
the following function returns an error at "Topic.AddMarker Marker"

' Function to apply a marker to a topic
Sub ApplyMarkerToTopic(ByVal Topic As Topic, ByVal Marker As MapMarker)
    ' Apply the marker to the topic
     Topic.AddMarker Marker
End Sub

and here's my complete code:

Sub Main()
    ' Declaration of variables
    Dim MonDocActif As Document
    Dim SujetSelectionne As Topic
    Dim TexteSujet As String
    Dim MarkerGroup As MapMarkerGroup
    Dim Marker As MapMarker
    Dim MarkerIndex As Integer
    Dim MarkerList As String
    Dim GroupList As String
    Dim TempMarker As MapMarker
    Dim i As Integer

    ' Initialize the active document
    Set MonDocActif = ActiveDocument

    ' Check if any topics are selected
    If MonDocActif.Selection.Count = 0 Then
        MsgBox "Debug: No topics selected. MonDocActif.Selection.Count = " & MonDocActif.Selection.Count, vbExclamation, "No topic selected"
        Exit Sub
    End If

    ' 🔹 **Display all marker groups and their index numbers**
    GroupList = "List of marker groups:" & vbCrLf
    For i = 1 To MonDocActif.MapMarkerGroups.Count
        GroupList = GroupList & "Index " & i & " - " & MonDocActif.MapMarkerGroups.Item(i).Name & vbCrLf
    Next
    GroupList = GroupList & vbCrLf & "Total Marker Groups = " & MonDocActif.MapMarkerGroups.Count
    MsgBox GroupList, vbInformation, "Marker Categories (Debug Info)"

    ' 🔹 **Check if the group "Émoticônes" exists, otherwise create it**
    Set MarkerGroup = FindOrCreateMarkerGroup(MonDocActif, "Émoticônes")
    MsgBox "Debug: MarkerGroup assigned. Group Name = " & MarkerGroup.Name & ", Marker Count = " & MarkerGroup.Count, vbInformation, "Debug Info - MarkerGroup"

    ' 🔹 **Display all markers in the selected category**
    MarkerList = "Markers in '" & MarkerGroup.Name & "' :" & vbCrLf
    For i = 1 To MarkerGroup.Count
        Set TempMarker = MarkerGroup.Item(i)
        MarkerList = MarkerList & "Index " & i & " - " & TempMarker.Label & vbCrLf
    Next
    MarkerList = MarkerList & vbCrLf & "Total Markers = " & MarkerGroup.Count
    MsgBox MarkerList, vbInformation, "List of available markers (Debug Info)"

    ' 🔹 **Find the marker "Custom Icon 1" in the group by retrieving its index**
    MarkerIndex = FindMarkerByName(MarkerGroup, "Custom Icon 1")

    ' Check if the marker was found
    If MarkerIndex = -1 Then
        MsgBox "Error: The marker 'Custom Icon 1' is not found.", vbExclamation, "Warning"
        Exit Sub
    Else
        ' Use the index to get the Marker object
        Set Marker = MarkerGroup.Item(MarkerIndex)
        MsgBox "Debug: Marker found. Marker Label = " & Marker.Label, vbInformation, "Debug Info - Marker Found"
    End If

    ' 🔹 **Display the name of the selected marker**
    MsgBox "The selected marker is: " & Marker.Label & vbCrLf & "Debug: Marker index = " & MarkerIndex, vbInformation, "Marker to Add"

    ' 🔹 **Loop through each selected topic**
    For i = 1 To MonDocActif.Selection.Count
        ' Get the selected topic
        Set SujetSelectionne = MonDocActif.Selection.Item(i)
        ' Retrieve the topic text
        TexteSujet = SujetSelectionne.Text

        ' ✅ **Apply the marker "Custom Icon 1" to each selected topic**
        ApplyMarkerToTopic SujetSelectionne, Marker
        MsgBox "Debug: Applied Marker '" & Marker.Label & "' to topic with text: " & TexteSujet, vbInformation, "Debug Info - ApplyMarker"
    Next i

    ' Clean up memory
    Set SujetSelectionne = Nothing
    Set MonDocActif = Nothing
End Sub

' Function to find or create a marker group
Function FindOrCreateMarkerGroup(ByVal Doc As Document, ByVal GroupName As String) As MapMarkerGroup
    Dim MarkerGroup As MapMarkerGroup
    Dim i As Integer

    ' Search for the existing marker group
    For i = 1 To Doc.MapMarkerGroups.Count
        If Doc.MapMarkerGroups.Item(i).Name = GroupName Then
            Set FindOrCreateMarkerGroup = Doc.MapMarkerGroups.Item(i)
            Exit Function
        End If
    Next

    ' If not found, create it
    Set FindOrCreateMarkerGroup = Doc.MapMarkerGroups.AddIconMarkerGroup(GroupName)
End Function

' Function to find a marker by its name and return its index (Integer)
Function FindMarkerByName(ByVal MarkerGroup As MapMarkerGroup, ByVal MarkerName As String) As Integer
    Dim i As Integer

    ' Loop to search for the marker by name
    For i = 1 To MarkerGroup.Count
        If LCase(MarkerGroup.Item(i).Label) = LCase(MarkerName) Then
            FindMarkerByName = i
            MsgBox "Debug: Found Marker at index " & i & vbCrLf & _
                   "Marker Label = " & MarkerGroup.Item(i).Label, vbInformation, "Debug Info - FindMarkerByName"
            Exit Function
        End If
    Next

    ' If no marker is found, return -1
    FindMarkerByName = -1
    MsgBox "Debug: No marker found for '" & MarkerName & "' in group '" & MarkerGroup.Name & "'.", vbExclamation, "Debug Info - FindMarkerByName"
End Function

' Function to apply a marker to a topic
Sub ApplyMarkerToTopic(ByVal Topic As Topic, ByVal Marker As MapMarker)
    ' Apply the marker to the topic

     Topic.AddMarker Marker

    MsgBox "Debug: In ApplyMarkerToTopic - Topic.Text = " & Topic.Text & vbCrLf & _
           "Applied Marker = " & Marker.Label, vbInformation, "Debug Info - ApplyMarkerToTopic"
End Sub

I've also tried something like below but without any success

' Function to apply a custom icon to a topic
Sub ApplyCustomIcon(ByVal m_Topic As Topic, ByVal IconName As String)
    On Error Resume Next

    ' 🔹 **Display available icons before adding**
    Dim IconList As String
    Dim i As Integer
    IconList = "List of available icons:" & vbCrLf

    For i = 1 To m_Topic.Icons.Count
        IconList = IconList & "- " & m_Topic.Icons.Item(i).Name & vbCrLf
    Next

    MsgBox IconList, vbInformation, "Icon Verification"

    ' 🔹 **Add the icon**
    m_Topic.Icons.AddCustomIconFromMap IconName

    On Error GoTo 0

    MsgBox "The icon '" & IconName & "' has been applied to the topic: " & m_Topic.Text, vbInformation, "Icon Applied"
End Sub

The method "Topic.AddMarker()" is a hallucination by ChatGPT. There is no such method.

If the marker is a custom icon, the method Topic.Icons.AddCustomIcon takes the custom icon signature as its argument. The signature can be obtained from the marker at

MapMarker.Icon.CustomIconSignature

To find the custom icon signature you will need to find the marker object. It cannot be done from the marker name alone. The marker object can be found by searching through the marker group for a match on the name,

There are basically two sorts of marker collection in a map: the markers belonging to the map, visible in the Map Index, and organised by group under Document.MapMarkers; and the markers present on a specific topic, which are found under Topic.Icons and Topic.TextLabels. TextLabels is the internal name for Tags. To apply a marker to a topic you need to locate it in the marker collection belonging to the document, then add it to the appropriate marker collection for a topic.

Thanks again, almost there....and really sorry such a pain in the b.###, but I have zero coding knowledge.

I'm now able to retrieve my marker signature but still couldn't find the proper code/method to apply it.
And it's even worth, when I use the below method it makes MindManager to shutdown/crash without any error message ;-(

This line makes Mindmanager to (silently) crash.

     Set IconAdded = t.Icons.AddCustomIcon(CustomIconSignature)

Here's the complete code, where CustomIconSignature returns as a value "IKUXrAAAAAAAAAAAAAAAAAAAAA" which indeed correspond to my "Custom Icon 1".

CustomIconSignature = mMarker.Icon.CustomIconSignature

If Not t.Icons.ContainsCustomIcon(CustomIconSignature) Then
     Set IconAdded = t.Icons.AddCustomIcon(CustomIconSignature)
End if

Use the method Topic.AddCustomIconFromMap(signature) if the icon already exists in the map.

The method Topic.AddCustomIcon(filename) will add a custom icon directly from an .ico file. It is interesting that MindManager tries to process this if given some text that is not a file path and name.

Finally got it working! Hourra! Thank you so much, Nick! I wouldn't have succeeded without you, and that definitely proves that humans are still by far superior to GenAI, luckily for us ;-) Thanks again for your time and great patience.

hi, @prem do you mind to share it? i am also a layman that write some addons and shared on github.

i wish corel will do more to help us. thx

btw,

thanks @Nick all along

and btw, today claude 3.7 sonnet /w think is available on cursor IDE. layman or expert programmers all could benefit from it.

thanks

Here it is,

' Function to find or create a marker group
Function FindOrCreateMarkerGroup(ByVal Doc As Document, ByVal GroupName As String) As MapMarkerGroup
    Dim MarkerGroup As MapMarkerGroup
    Dim i As Integer

    ' Search for an existing group
    For i = 1 To Doc.MapMarkerGroups.Count
        If Doc.MapMarkerGroups.Item(i).Name = GroupName Then
            Set FindOrCreateMarkerGroup = Doc.MapMarkerGroups.Item(i)
            Exit Function
        End If
    Next

    ' If not found, create the group
    Set FindOrCreateMarkerGroup = Doc.MapMarkerGroups.AddIconMarkerGroup(GroupName)
End Function

'---------------------------------------------
' Function to find a marker by its name and return its index
Function FindMarkerByName(ByVal MarkerGroup As MapMarkerGroup, ByVal MarkerName As String) As Integer
    Dim i As Integer

    For i = 1 To MarkerGroup.Count
        If LCase(MarkerGroup.Item(i).Label) = LCase(MarkerName) Then
            FindMarkerByName = i
            Exit Function
        End If
    Next

    ' If the marker is not found, return -1
    FindMarkerByName = -1
    'MsgBox "Debug: No marker found for '" & MarkerName & "' in group '" & MarkerGroup.Name & "'.", vbExclamation, "Debug Info - FindMarkerByName"
End Function

'---------------------------------------------
' Procedure to apply a marker to a topic
Sub ApplyMarkerToTopic(ByVal t As Topic, ByVal mMarker As MapMarker)
    Dim CustomIconSignature As String
    Dim IconAdded As Icon
    Dim docMarkerList As String
    Dim grp As MapMarkerGroup
    Dim docMarker As MapMarker
    Dim i As Integer

    ' (Optional) Display the list of markers in the document for debugging
    docMarkerList = "Markers in Document:" & vbCrLf
    For Each grp In ActiveDocument.MapMarkerGroups
        For i = 1 To grp.Count
            Set docMarker = grp.Item(i)
            docMarkerList = docMarkerList & "Group: " & grp.Name & " - Marker Index " & i & " - " & docMarker.Label & vbCrLf
            On Error Resume Next
            docMarkerList = docMarkerList & "   Signature: " & docMarker.Icon.CustomIconSignature & vbCrLf
            On Error GoTo 0
        Next i
    Next grp
    'MsgBox docMarkerList, vbInformation, "Document Markers (Debug Info)"

    ' Retrieve the custom icon signature from the marker object
    If Not mMarker.Icon Is Nothing Then
        CustomIconSignature = mMarker.Icon.CustomIconSignature

        ' Apply the icon only if the topic does not already contain it
        If Not t.Icons.ContainsCustomIcon(CustomIconSignature) Then
            Set IconAdded = t.Icons.AddCustomIconFromMap(CustomIconSignature)
            If IconAdded Is Nothing Then
                'MsgBox "Error: Failed to add custom icon to topic." & vbCrLf & _
                '       "Topic.Text = " & t.Text & vbCrLf & _
                '       "Marker = " & mMarker.Label, vbExclamation, "Error - ApplyMarkerToTopic"
            End If
        End If
    Else
        'MsgBox "Error: The selected marker does not have an associated custom icon.", vbExclamation, "Error - ApplyMarkerToTopic"
    End If
End Sub