Set Adjust A Button Top Left Position Programmatically

[jeffrey159]

how do i do this coding If a button is not available for the current user then the next buttons must cover its space automatically.

if i have 3 buttons, the middle one is not visible for current user, how do the next button cover its space??

what's the code to do this

[Excel Fox]

So if you have 3 buttons (shapes) with names 1, 2 and 3,



If SomeCondition = True Then
Worksheets("SheetName").Shapes("1").Left = Worksheets("SheetName").Shapes("2").Left
Worksheets("SheetName").Shapes("2").Visible = False
Else
Worksheets("SheetName").Shapes("1").Left = 10 ' Or whatever was the original left position
Worksheets("SheetName").Shapes("2").Visible = True
End If

[jeffrey159]

erm, sorry what do i replace the SomeCondition with and must i replace the name SheetName to other thing??:confused:
what is the code to define WorkSheets, i tried googling but i can't find any except for macro stuff...

[Excel Fox]

Some condition would be something like what you've mentioned in your original post.

The code would be something like



If Environ("USERNAME")="ExcelFox" OR Environ("USERNAME") = "Jeffrey" Then
'.....some code'
Else
'.....other code
End If

[jeffrey159]

what about the WorkSheets what codes to define it??

[Excel Fox]

In VBA, one normally refers to a worksheet by the name 'Sheet 1' with the code
Worksheets("Sheet 1")