Macro pour masquer tous les boutons Word
SixSigma
-
m@rina Messages postés 27598 Date d'inscription Statut Modérateur Dernière intervention -
m@rina Messages postés 27598 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
J'aimerai trouver un code qui permette de masquer tous les controles de contenus (controles, d'image, de texte, ou même les boutons) qui n'ont pas été remplis. m@rina a déjà fourni un code qui permet d'afficher ou de masquer les controles de textes qui n'ont pas été remplis, mais j'aimerai l'étendre aux autres contrôles.
Si ce n'est pas possible, auriez-vous un code qui permette de masquer tous les boutons d'un document ? J'aimerai éviter de les masquer un à un..
Merci ;)
J'aimerai trouver un code qui permette de masquer tous les controles de contenus (controles, d'image, de texte, ou même les boutons) qui n'ont pas été remplis. m@rina a déjà fourni un code qui permet d'afficher ou de masquer les controles de textes qui n'ont pas été remplis, mais j'aimerai l'étendre aux autres contrôles.
Si ce n'est pas possible, auriez-vous un code qui permette de masquer tous les boutons d'un document ? J'aimerai éviter de les masquer un à un..
Merci ;)
4 réponses
-
Bonjour SixSigma,
Dans ton énoncé, tu as oublié de mettre cette phrase :
« Je voulais que le texte d'indication ne disparaisse
que lorsqu'on met le document en format pdf ».
Cordialement
-
Si toutefois quelqu'un aurait une piste pour une macro qui masquerai tous les bouttons d'un document word, je serai ravi ^^,
(je voudrai éviter de les apeller 1 par 1) -
Après des heures de recherches j'ai réussi à faire quelque chose mais qui ne me convient pas encore :( J'arrive à cacher tous les boutons mais cela masque aussi les boutons types Option Button :( Je veux cacher uniquement les boutons types command button :
'masque tous les boutons du document : ceux-ci napparaitrons donc pas sur le document format pdf
For Each bouton In ActiveDocument.InlineShapes
'S'il s'agit d'un bouton :
If bouton.Type = wdInlineShapeOLEControlObject Then
'Alors on le masque :
bouton.Range.Font.Hidden = True
End If
Next bouton
Auriez vous une autre idée svp ? Vous me sauveriez tellement la vie ^^ -
Bonjour
Essaie plutôt ceci pour ta condition :
If bouton.OLEFormat.ClassType = "Forms.CommandButton.1" Then
bouton.Range.Font.Hidden = True
End If
