I made custom menu with these instructions: [URL]....
Problem is that when I right click my makro keeps copying itself. Ten times right click=ten my macro in the right click menu. It means that
Private Sub Workbook_Deactivate() doesn't work as it should be?
I have created a sub to add new controls to the "Cell" shortcut menu. Can I remove the standard "Cell" shortcut menu controls? if so how do you do it?
[Code] ......
I wonder if it is possible to make a macro that right clicks a cell and then chooses a option from the list?
View 11 Replies View Relatedi had a play with a document that contains a custon menu bar and now the menu bar is always there.
the code that puts up the menu bar is ...
Need code to allow the sheets in a workbook to be selected from the right click menu
View 11 Replies View RelatedI want to be able to give my application menu when the user right-clicks on a specific series of cells. I've already got the code that will limit the right-click options to the cells that I want.
How do I then form and execute the menu that I want the user to see - "Archive Data", "Edit Data", "Add Data", for instance, rather than the normal right-click menu?
I have been modifying the options available on my right click menu, getting rid of about half of what was there and adding items I use quite often like Paste Values, Paste Formats, Paste Formulas, Sort..., AutoSum, and Format as Percent, as well as adding group dividers. I have it just the way I want it, but I have one issue. If the clipboard is empty, all of the paste buttons are disabled on the Standard toolbar and in the Edit menu as are the Paste and Paste Special... items on the right click menu, but the new paste items I added to my right click menu are still enabled. If I click on one, I get a "PasteSpecial method of Range class failed" error because I have no range selected. I got around this by adding On Error Resume Next to the macros of my added paste functions - not elegant, but functional. Is there a way to have those items appear grayed out and disabled on my right click menu when the clipboard is empty as opposed to my current workaround?
View 9 Replies View RelatedQuestion regarding the disabling of right mouse button click options and have used the code below to disable and reciprocal code to enable options. The code works well in Excel 2003 but have recently used the spreadsheet in excel 2000 and the code causes a runtime error 5 'Invalid procedure call or argument'. how to amend the code to have it also work with Excel 2000.
With Application. CommandBars(" Cell")
.Controls("Cut").Visible = False
.Controls("Paste Special...").Visible = False
.Controls("Insert...").Visible = False
.Controls("Delete...").Visible = False
.Controls("Clear Contents").Visible = False
.Controls("Insert Comment").Visible = False
.Controls("Format Cells...").Visible = False
.Controls("Pick from drop-down list...").Visible = False
.Controls("Format Cells...").Visible = False
.Controls("Add Watch").Visible = False
.Controls("Create List...").Visible = False
.Controls("Hyperlink...").Visible = False
.Controls("Look up...").Visible = False
End With
I have acquired code to add an item to the right-click menu.
I have added my item using "before:=1", which works fine by putting the item at the top of the list of items in the menu.
My problem is that I require to add the same item ( obviously with a different name ) that needs to be at the bottom of the list.
The reason being, that the pop-up can either display downwards or upwards and I want the user to be in closest proximity of the item.
if it possible ) to add an item to the bottom of the list.
The line I need to change is:
CommandBars("Cell").Controls.Add(Type:=msoControlPopup, before:=1).Caption = "MyMacros2"
Just curious as to what could make a custom menu or custom button disappear from Excel upon opening it. I had created a custom menu with personal.xls macros in it for someone here a while back, and today it was completely missing.. although the Personal.xls folder still existed with the macros.
I am quite sure that they did not manually remove the menu by right-clicking and selecting Customize and dragging back the menu items...
I have created a nice custom menu but I only want to tie it to only appear when I open a specific template file or any other saved work book from the template file.
View 5 Replies View RelatedI created a right-click menu for userform textboxes from a code I found through googling. It works perfect, however, I don't know how to get it to work for more than one textbox.
Here's the code for the userform:
Is it possible to create a menu that could be called by a double click which would allow you to click on a value from that menu and insert it into the double clicked cell. I know I could use a data validation list, but that is tacky and you have to scroll down the list to find the data you would like. I'd like to have a menu pop up that stores different values in 6 columns and 25 rows. Any way without having to jump into an access database?
View 2 Replies View RelatedI must have disabled right click on the forms button. I usually associate a macro with the button but the menu disapeared. How can I get it back.
View 9 Replies View RelatedI've run into this really strange problem with my right click menu (popup command bar) The UF that handles the cb is loaded at workook open event and it's modal*
When first right click, the commandbar is invisible, but it's there. Only shadow seems, and when click on arrow, starts showing menu. I could say that something like repaint needed. If i click on anything, next time it popups normally !!
The problem does not occur if:
1) i load the uf manually
2)* display the UF modeless
I have few questions,
1. why the "auto sum" icon grey out, and doesn't work.
2. when I right click the sheet, the menu doesn't show up.
3. Insert columns/rows, When I highlight 2 columns/rows, right-click the mouse & the menu doesn't show up for me to choose insert col/row.
Right click menus are a well known topic but I am struggling to find information on what I want to do with them. I have seen it done so I know its possible. What I want to do is completely replace the right click menu with my own custom one on a worksheet.
I do NOT want to add things to the existing right click menu I want to effectivly disable the existing one and put on my very own one in its place. I have looked at the code for adding a menu to a textbox etc which seems sound but I can't trigger it with an event. I don't have any code to show Im afraid as I am just playing with other people at the moment trying to get it to work.
I have a list box with items. When I stay on item and press mouse right click, I want see pop up menu with "remove this item" and "add new item".
View 8 Replies View RelatedI used the commandBar to create a right-click menu on a userForm but unfortunately I get an error 400 every time I click on the option "Edit" and I don't understand what I did wrong.
Sub CreateCmdBar()
Dim st As CommandBar
'delete the pop-up if it exists
On Error Resume Next
Application.CommandBars("flexgrid_rc").Delete
'Disables enabled error handler in the current procedure and resets it to Nothing. On Error GoTo 0
On Error Goto 0
Set st = CommandBars.Add( Name:="flexgrid_rc", Position:=msoBarPopup, Temporary:=False)
'add two menu items to the new commandbar
With st..................
I have created an Addin from one I found on this site which creates a menu on the CommandBar. On this menu I can add my Macros. The Menu is initially supposed to perform a delete function then an add, just in case the menu already exists on the CommandBar. It is also supposed to Uninstall the menu when you de-select the Addin. At the moment it doesn't seem to be doing either, as I have now got 5 CommandBar menu's all the same and I can't delete them?
This also creates a problem of when I add another macro, the menu on the CommandBar doesn't update with the addition?
I have attached the .xla file for you to look at and see where I'm going wrong.
VBA Macros & Creating An Add-in For Them
I'm trying to load a custom menu in a workbook to avoid having users to load an add in to use the spreadsheet. I'm trying to add this to the "this workbook" tab but I've never done this.
View 3 Replies View RelatedI have create a custom menu and want to add a choice and a subchoice that will guide the user to insert a number in an inputbox or under a list. Then the user's selected number it will be used as parameter for a vba code.
Eg.:
The choice is: How many rows will be marked
The subchoice : 10 (default value)
What i want is the following:
If the user choose the above subchoice then it has to be appeared an inputbox or something like that in which he has to insert a number, eg. 45. After that the choice must shows
The choice: How many rows will be marked
The subchoice: 45
This parameter must be active all the time that the user uses the workbook. At the end, if the user saves the workbook, the next time it will be opened, the subchoice must have the value 45.
Look at the attachment image to see exactly what i want
Here's the code. Just copy it under a module
Option Explicit
Dim cbMenu As CommandBarControl
Dim cbSubMenu As CommandBarControl
Public MenuSeries
I was making a custom Menu Bar in excel. In order to troubleshoot I executed the code a no. of times, resulting in multiple but same menu bars in excel application. Now the problem is that even if I quit excel, the menu bars dont seem to go..How do I get rid of them.
View 2 Replies View RelatedI am working on a workbook that has a custom worksheet menu bar item created every time the file opens. If I try to edit the path of these macros and save the file, when i reopen the file, it is back to the original paths. I can't find any VB code, hidden worksheets, hidden cells,etc to find the source of this item being created. I have even deleted all VB modules and worksheets except a blank sheet and it still creates the item. Somewhere this menu bar item is being created and I have no idea where. It acts the same on 4 different machines and acts the same on Excel 97, 2000, 2003 and 2007.
View 4 Replies View RelatedI have downloaded a custom menu workbook attached. I am wanting to only show the custom menu in one workbook as it appears in all workbooks open at the time.
View 3 Replies View Relatedhow to manage a custom faceid. Though, I am not too sure as to how to assign an actual icon to a custom toolbar. I can try the pasteface method; though as the source file is a .png; the picture might be too small.
View 2 Replies View RelatedTrying to write a VBA code to add a new menu item with submenus on the Standard toolbar when Workbook_Open and then deleting it (_Before close). Just having trouble with the creating of the menu item. Here is what I have so far:
Sub Workbook_Open()
...
Dim menuitem As CommandBarPopup
Set Menu = Application.CommandBars("Menu Item").Controls.Add (Type:=msoControlPopup, Before:=13)
...
End Sub
I want to add Paste Values to the right click menu in Excel 2007. Can this be done without recording a separate macro to run it? What I mean is If I add the command itself to the right click menu, can it run of of the standard RightClick -> Paste Special -> Values option, or must I record a macro that does those steps each time?
View 7 Replies View RelatedI'm using Excel 2003 and am unable to find the name of, and therefore customise, the right-click shortcut menu that pops up when you right-click on a line drawn from the 'Drawing" toolbar. Basically, I'm trying to do some technical analysis on a chart. I want to be able to right-click on the lines that I draw on the chart and replicate a parallel line.
View 3 Replies View RelatedI have written some code that customises my Right-Click Menu. This works perfectly well but doesn't create the FaceIDs.Can anyone explain why? The Code is as follows
Sub CustomiseRightClickMenu()
Dim cbnRightClickMenu As CommandBarButton
Dim rngMacroNames As Range
Dim intLoopCounter As Integer
'DEFINE THE RANGE CONTAINING ALL THE MACRO NAMES
Set rngMacroNames = Sheet1.Range("MacroNames")
'DEFINE ARRAY OF FaceIDs
arrFaceIDs = Array(255, 590, 350, 536, 576, 410, 401)
On Error Resume Next
With Application
For Each Cell In rngMacroNames
. CommandBars("Cell").Controls(Cell.Formula).Delete ..............