Hello

I use this code to change visible true/false of some controls in my
workbook. I get SheetName, ShapeName and true/false (0 or -1) from a
database.
I do this to create user levels

Sheets(SheetName(i)).Shapes(ShapeName(ii)).Visible = -1

This works well but now I want to also access controles is in userform.
I also want to change caption on the controls if it's possible.

Excuse my bad English but I hope you understand the question anyway

Thanks in advance

*** Sent via Developersdex http://www.developersdex.com ***

What type of Control, ActiveX (control Toolbox) or Forms. Also what is it,
eg checkbox.

Regards,
Peter T

"kalle" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>
>
> Hello
>
> I use this code to change visible true/false of some controls in my
> workbook. I get SheetName, ShapeName and true/false (0 or -1) from a
> database.
> I do this to create user levels
>
> Sheets(SheetName(i)).Shapes(ShapeName(ii)).Visible = -1
>
> This works well but now I want to also access controles is in userform.
> I also want to change caption on the controls if it's possible.
>
> Excuse my bad English but I hope you understand the question anyway
>
> Thanks in advance
>
> *** Sent via Developersdex http://www.developersdex.com ***

Thanks på your answer.

It is the ActiveX control and it's checkbox and commndbutton.



*** Sent via Developersdex http://www.developersdex.com ***

Dim oleObj As OLEObject

Set oleObj = Worksheets("Sheet1").OLEObjects("CheckBox1")

oleObj.Visible = True ' or False
oleObj.Object.Caption = "New Caption"

Similar for the commndbutton

Regards,
Peter T


"kalle" <(E-Mail Removed)> wrote in message
news:ujGlD%(E-Mail Removed)...
>
>
> Thanks på your answer.
>
> It is the ActiveX control and it's checkbox and commndbutton.
>
>
>
> *** Sent via Developersdex http://www.developersdex.com ***

Hello

Thank you very much.


This works fine but now I need to do the same thing on my userforms. Is
that possible?

*** Sent via Developersdex http://www.developersdex.com ***

Dim img As MSForms.Image ' or simply As Control

Set img = Me.Controls("Image1")
img.Picture = LoadPicture(sFile)


Regards,
Peter T


"kalle" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>
> Hello
>
> Thank you very much.
>
>
> This works fine but now I need to do the same thing on my userforms. Is
> that possible?
>
> *** Sent via Developersdex http://www.developersdex.com ***