Comments on: Adding ActiveX Controls to Worksheet in VBA

By: DK

DK — Wed, 06 Oct 2010 06:21:00 +0000

Further to my previous comment, I add the check box using the code dynamically and not after getting into design mode!

By: DK

DK — Wed, 06 Oct 2010 06:19:00 +0000

I have a macro that is running, now I copy a set of rows from one sheet to other and add
a check box to the newly copied cells.

However the macro that is running exits!! Have any clues why?

By: Jake

Jake — Mon, 27 Oct 2008 11:37:00 +0000

Thank you very much for these detailed instructions. Works flawlessly!

By: Brett

Brett — Thu, 29 Nov 2007 13:07:00 +0000

Shelita,

Option Buttons are good for only allowing one selection. However, you could put VBA code in each check box that clears the other ones.

By: Shelita

Shelita — Wed, 28 Nov 2007 20:17:00 +0000

I can’t figure out how to allow only one selection out of four checkboxes (like on a survey) using Excel. Is it possible?

By: Dick Kusleika

Dick Kusleika — Wed, 23 May 2007 17:44:00 +0000

Sub test()

Dim ole As OLEObject

Set ole = Sheet1.OLEObjects.Add("forms.commandbutton.1")
ole.Name = "newName"

Set ole = Nothing

End Sub

By: Hudson

Hudson — Wed, 23 May 2007 08:32:00 +0000

Could you tell me how to rename the controls that adding in VBA ? I've try in 2 way:
1) Sheet1.OLEObjects.Add(name:="newName" ....
2) .object.name="NewName"
But fail.

Thx

By: Padam Kumar Tripathi

Padam Kumar Tripathi — Thu, 10 Aug 2006 09:46:00 +0000

I need your help again. Can you help me pls?

Image size appears in button(msocontrolbutton) of custom toolbar Excel 2000 is very small and blurred using below code. How I can increase size of image in button (msocontrolbutton) as well as brightness of image in custom toolbar of Excel 2000 using VBA?

It would be really great help for me......

My code:
'========================================

Const cImgCommandBarID As String = "TMC Img Toolbar"

'Image code

Dim cbImgBar As CommandBar

Set cbImgBar = CommandBars.Add(Name:=cImgCommandBarID, Position:=msoBarTop)

'cbImgBar.context = 1000

Dim cbImage As CommandBarControl

Dim imgTool As Shape

Dim sFileName, ImgSheet

sFileName = ActiveWorkbook.Path & "ImagesABC.jpg"

Const sNAME = "MyToolFace"

'================

' hide appearance of picture from the user

Application.ScreenUpdating = False

' insert picture from file and copy inserted picture

ActiveSheet.Pictures.Insert(sFileName).CopyPicture Appearance:=xlScreen, Format:= xlBitmap

Set cbImage = cbImgBar.Controls.Add(Type:=msoControlButton)

With cbImage

'.FaceId = 198

.Caption = "TheMarketsImage"

.Style = msoButtonIcon

.Width = 120

.Height = 100

.PasteFace

End With

' remove the inserted picture

ActiveSheet.Pictures(ActiveSheet.Pictures.Count).Delete

Application.ScreenUpdating = True

By: Eric Horowitz

Eric Horowitz — Mon, 30 Jan 2006 20:01:00 +0000

I find that when I add a scroll bar to a sheet using OLEObjects.Add, I loose my context. I.e., all variables in the VBA code are reset.

Have you experienced this?

By: Tony M

Tony M — Thu, 07 Oct 2004 09:19:00 +0000

I think it’s a great suggestion. As Jon says in your example you could just use an X in column A but if you’re doing something for someone else a set of check boxes looks a lot more “professional”. It’s certainly an idea I’m going to file away for future use (like a lot of the stuff you come up with on this blog).