Shapes.visible = false/true

[Ctech]

This macro just worked, it hid most of my combo boxes and list boxes
However now Im getting an error when trying to select the hidden comb
boxes.... is it not possible to select ( .visible = false ) shapes. Fo
so to make them visable again?

 

[Ctech]

So can I not make a shape visible again after making it invisible

 

[EvolBob]

This works for the shapes on the worksheet and toggles the visible state on/off.

With ActiveSheet.DrawingObjects
.Visible = Not .Visible = msoTrue
End With


Regards
Robert McCurdy


This macro just worked, it hid most of my combo boxes and list boxes.
However now Im getting an error when trying to select the hidden combo
boxes.... is it not possible to select ( .visible = false ) shapes. For
so to make them visable again?

Private Sub Number_CC_invloved()

' Hides/Unhides the other forms depending on how many numbers of cc
invloved.
' Created by Christian Simonsen 21/03/2006
Dim mSheet
Dim mCombo
Dim mList

i = data.Range("K14").Value

'------------------ Hides/Unhides all forms --------------

' unhides all the forms
For n = 2 To 10
mSheet = "Sheet" & n
Range(mSheet).Select
Selection.EntireRow.Hidden = False
Next n


' hides all the forms which is not needed
For i = i + 1 To 10
mSheet = "Sheet" & i
Range(mSheet).Select
Selection.EntireRow.Hidden = True

Next i


' -----------Hides all combo boxes and List boxes ---------

' unhides all the combo boxes
For n = 2 To 10
mCombo = "CC_" & n
combo.Shapes(mCombo).Select
With Selection
.Visible = True
End With
Next n

' unhides all the List boxes
For n = 2 To 10
mList = "cboSecondary_" & n
combo.Shapes(mList).Select
With Selection
.Visible = True
End With
Next n

' -----------Un-Hides all combo boxes and List boxes ---------

' hides all the forms which is not needed
For i = i + 1 To 10
mList = "CC_" & i
combo.Shapes(mList).Select
With Selection
.Visible = False
End With
Next i

' hides all the forms which is not needed
For i = i + 1 To 10
mList = "cboSecondary_" & i
combo.Shapes(mList).Select
With Selection
.Visible = False
End With
Next i



End Sub