On Mon, 12 Jan 2009 13:46:44 -0800, Gord Dibben wrote:
> Can you post the removeosimenubar code?
>
> That is probably throwing an error when you try to remove a bar that does
> not yet exist.
>
That fixed it! Thanks, Gord.
> With my limited skills I don't see what these two lines do.
>
> .Left = CommandBars("FormatDGB").Left + CommandBars("FormatDGB").Width
> .RowIndex = CommandBars("FormatDGB").RowIndex
> Maybe you have to wrap them inside their own With...........End With
>
>
> Gord
>
> On Mon, 12 Jan 2009 12:00:31 -0700, salgud <(E-Mail Removed)> wrote:
>
>>On Mon, 12 Jan 2009 11:38:42 -0700, salgud wrote:
>>
>>> On Fri, 09 Jan 2009 15:50:59 -0800, Gord Dibben wrote:
>>>
>>>> With Application.CommandBars.Add
>>>> .Name = vMacNames
>>>> 'rest of stuff
>>>>
>>> Thanks for the reply, Gord. When I try that, I get a "Invalid or
>>> unqualified reference" error on that same lime. Any ideas?
>>
>>My mistake, error message is "Invalid procedure call or reference"
>>
>>>
>>>>
>>>> Gord Dibben MS Excel MVP
>>>>
>>>> On Fri, 9 Jan 2009 16:32:43 -0700, salgud <(E-Mail Removed)> wrote:
>>>>
>>>>>I've cobbled together the following code to create a toolbar everytime a
>>>>>certain spreadsheet opens:
>>>>>
>>>>>Sub CreateOSIMenubar()
>>>>>
>>>>>Dim vMacNames As Variant
>>>>>Dim vCapNames As Variant
>>>>>Dim vTipText As Variant
>>>>>
>>>>>Call RemoveOSIMenubar
>>>>>
>>>>>vMacNames = "OSILogInsertRow"
>>>>>vCapNames = "OSILogInsertRow"
>>>>>vTipText = "Add Row"
>>>>>
>>>>>With Application.CommandBars
>>>>> .Add
>>>>> .Name = vMacNames <----- Compile Error: Method or Data Member not found
>>>>> .Left = 200
>>>>> .Top = 200
>>>>> .Protection = msoBarNoProtection
>>>>> .Visible = True
>>>>> .Position = msoBarTop
>>>>> .Left = CommandBars("FormatDGB").Left + CommandBars("FormatDGB").Width
>>>>> .RowIndex = CommandBars("FormatDGB").RowIndex
>>>>>End With
>>>>>With CommandBars(vMacNames).Controls.Add(Type:=msoControlButton)
>>>>> .OnAction = "'" & ThisWorkbook.Name & "'!" & vMacNames
>>>>> .Caption = vCapNames
>>>>> .Style = msoButtonCaption
>>>>> .TooltipText = vTipText
>>>>>End With
>>>>>End Sub
>>>>>
>>>>>Doesn't recognize the name variable or something. Any ideas?
>>>>>Thanks
|
Similar Threads
