Solved Copy format in CommandBar (1 Viewer)

[zelarra821]

I have the following procedure to create a custom context menu:

Sub MenuContextual()
    On Error Resume Next
    Dim myBar As CommandBar
    CommandBars("ShortcutMenu").Delete
    Set myBar = CommandBars _
        .Add(Name:="ShortcutMenu", Position:=msoBarPopup, Temporary:=True)
    With myBar
        .Controls.Add Type:=msoControlButton, ID:=19
        .Controls.Add Type:=msoControlButton, ID:=22
    End With
    Set myBar = Nothing
End Sub

I need to add Format Copy but I don't know the ID.

Does anyone know or where can I consult it?

Thanks.

 

[isladogs]

I believe ID=19 is Copy, 22 is Paste & 21 is Cut

For lots more examples, see these three links:
Custom Shortcut Menu: List of msoControlButton Values? Also Question on "Remove Filter/Sort" (accessforums.net)
ID for button "edit list items" in context menu (accessforums.net) - see Posts 10 & 11
Create a shortcut menu for a form, form control, or report | Microsoft Docs

 

[zelarra821]

Thank you.

I have a list that I downloaded from a Spanish website about Access, but the IDs that are referenced to the format, none is what I am looking for. Hence I asked.

 

[theDBguy]

Just saw this in my search, not sure how good it is, but maybe it will help.

How to quickly find commandbar controls ID - free tool for Office developers

How to quickly find IDs of commandbar controls. Free tool for Office developers.

www.add-in-express.com

 

[zelarra821]

It doesn't work. Thanks.

 

[isladogs]

@zelarra821
Look at the code Micron supplied in post #11 of the 2nd link I supplied

Do you want the ID for FormatPainter?

 

[zelarra821]

I want the ID for format painter

 

[isladogs]

I'm still running the code Micron provided but a quick web search for Office FaceID Format Painter suggests you need ID = 108

 

[zelarra821]

That's it, but it's not available, I don't know why

 

[zelarra821]

Sub MenuContextual()
    On Error Resume Next
    Dim myBar As CommandBar
    CommandBars("ShortcutMenu").Delete
    Set myBar = CommandBars _
        .Add(Name:="ShortcutMenu", Position:=msoBarPopup, Temporary:=True)
    With myBar
        .Controls.Add Type:=msoControlButton, ID:=19
        .Controls.Add Type:=msoControlButton, ID:=22
        .Controls.Add Type:=msoControlButton, ID:=108

    End With
    Set myBar = Nothing
End Sub

 

[isladogs]

I'm fairly sure that FormatPainter only works in design view

 

[theDBguy]

That's it, but it's not available, I don't know why

View attachment 91497

Just a guess, but maybe the text you highlighted doesn't have any formatting applied?

 

[zelarra821]

I'm fairly sure that FormatPainter only works in design view

could be an explanation

 

[zelarra821]

Just a guess, but maybe the text you highlighted doesn't have any formatting applied?