Créer des formes invisible/visible dans excel via VBA

J'ai ce problème depuis quelques heures et je voudrais vraiment l'apprécier un peu d'aide avec elle.

Fondamentalement, je veux être en mesure de cacher/afficher des formes en fonction des sélections d'un utilisateur sur un objet userform. J'ai cassé le problème en un exemple très simple. Si j'insère une forme appelée "ovale 1" dans une feuille et d'exécuter le code:

Sub hideshape()

    With ActiveSheet

        .Shapes("Oval 1").Select

        With Selection

        .Visible = False

        End With

    End With

End Sub

la forme disparaît, mais quand j'exécute ce code

Sub unhideshape()

    With ActiveSheet

        .Shapes("Oval 1").Select

        With Selection

        .Visible = True

        End With

    End With

End Sub

J'obtiens une erreur ", a Demandé Formes sont verrouillés pour la Sélection"

Le classeur n'est pas protégé et j'ai essayé en décochant verrouillé et verrouillé texte sur les propriétés de la forme.

Toutes les idées ce qui est la cause de cette.

InformationsquelleAutor Matthew Brophy | 2015-11-06
  1. 6

    Vous ne pouvez pas Select un objet caché. Cependant, vous n'avez pas besoin d'utiliser Select à tous, et il n'est généralement pas recommandée. Essayez simplement:

    Sub HideShape()
    ActiveSheet.Shapes("Oval 1").Visible = False
End Sub
Sub UnhideShape()
    ActiveSheet.Shapes("Oval 1").Visible = True
End Sub
    InformationsquelleAutor A.S.H
  2. 0

    J'ai résolu le problème avec ce code(Ovale = Type 9, à partir de MsoAutoShapeType Énumération (Bureau)):

    Sub hide()
s = ActiveSheet.Shapes.Count
For i = 1 To s
    If ActiveSheet.Shapes(i).Type = 9 Then ActiveSheet.Shapes(i).Visible = False
Next i
End Sub

Sub unhide()
s = ActiveSheet.Shapes.Count
For i = 1 To s
    If ActiveSheet.Shapes(i).Type = 9 Then ActiveSheet.Shapes(i).Visible = True
Next i
End Sub

    "Si" Type = 9" est incorrecte, vous pouvez trouver le type de votre forme avec le code dans Immédiate fenêtre (ctrl+G en VBA):

    ?ActiveSheet.Shapes("Oval 1").Type
    InformationsquelleAutor TiIiMuRkA
  3. 0
    Sub HideEachShape()
Dim sObject As Shape
For Each sObject In ActiveSheet.Shapes
sObject.Visible = False
Next
End Sub

    à partir de: extendoffice.com

    InformationsquelleAutor Armand Villa
  4. 0

    - Je cacher les formes en fonction de leur nom depuis quelques formes que je ne veux pas cacher. J'utilise ce format:
    Sheet1.Shapes.Range(Array("COtxtBox1")).Visible = msoTrue

    nom de votre forme ou des formes va dans le tableau

    si seulement 1 forme que vous pouvez simplement utiliser:

    Sheet1.Shapes.range("COtxtBox1").Visible = True

    J'ai trouvé que le "ssm" la partie n'est pas nécessaire pour le Vrai ou Fausse déclaration

    InformationsquelleAutor tpjmlu26
  5. -1
    Public HIDE As Boolean

    Sub T_BUTTON ()
    ActiveSheet.Shapes("T 1").Visible = HIDE
    If ActiveSheet.Shapes("T 1").Visible = False Then
    HIDE = True
    Else
    HIDE = False
    End If

END SUB
    InformationsquelleAutor Muhammad Kafiansyah