Discussion :

[Philippe Tulliez]

Bonjour,
Afin de rendre invisible lors de l'impression d'un document, les contrôles de contenu non utilisés, je cherche à détecter si une photo a été téléchargée ou pas.
Soit dans l'image ci-dessous le contrôle entouré en rouge.



Pour les autres contrôles, j'ai trouvé la solution mais je cherche en vain pour le contrôle de contenu d'image

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub HiddenControl()
  ' Masque les contrôles formulaire non utilisés
  Dim Ctrl As ContentControl
  For Each Ctrl In ThisDocument.ContentControls
    With Ctrl
     Select Case .Type
       Case 0 To 1, 3, 6 ' Texte enrichi, brut, liste déroulante, sélection date
         .Range.Font.Hidden = .Range = .PlaceholderText
       Case 2 ' d'image
         ' .Range.Font.Hidden = False
     End Select
    End With
  Next
End Sub

[Invité]

Bonjour Philippe,

Au moment où tu charges (et décharges) ton image, as-tu moyen de renseigner la propriété tag du contentcontrol, pour t'en servir ensuite ?

[Philippe Tulliez]

Bonjour Eric,
Merci de te pencher sur mon problème.
Le problème est que ce n'est pas par VBA que les photos sont chargées mais manuellement par l' utilisateur et j'avais bien pensé faute de mieux d'alimenter la propriété Tag de l'objet mais je devrais alors intercepter l'événement et je ne vois pas cet événement.
Il y aurait bien une solution avec celui ci Document_ContentControlOnExit mais on peut sortir de l'événement en supprimant l'image et donc je me retrouve avec le même problème "Comment savoir s'il y a une image chargée ou pas"
J'ai testé plusieurs propriétés mais sans succès et malheureusement l'enregistreur de macros de Word n'est pas très bavard.

[Philippe Tulliez]

Bonjour,
En attendant mieux et en espérant qu'une meilleure solution existe, voilà ce que j'ai opté comme solution
Les contrôles étant préinstallé dans un modèle, les tailles de ceux-ci sont identiques. Lorsque l'utilisateur chargera la photo la taille (largeur et hauteurà sera différentes.
Je teste donc ceux-ci pour rendre visible ou pas le contrôle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub HiddenControl()
  ' Masque les contrôles du contenu non utilisés
  Const dHeight As Double = 115.2, dWidth As Double = 115.2
  Dim Ctrl As ContentControl
  Dim Flag As Boolean
  '
  For Each Ctrl In ThisDocument.ContentControls
    With Ctrl
      Select Case .Type
        Case 0 To 1, 3, 6 ' Texte enrichi, brut, liste déroulante, sélection date
          Flag = .Range = .PlaceholderText
        Case 2 ' d'image
          With .Range.InlineShapes(1)
            Flag = .Height = dHeight And .Width = dWidth
          End With
      End Select
     .Range.Font.Hidden = Flag
    End With
  Next
End Sub

Je laisse pour l'instant la discussion ouverte; en espérant une solution propre

[Invité]

Ce code te permet-il de différencier les controles vides ? Vrai si vide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub VerifierLesContentsImages()
 
Dim I As Integer
 
  With ActiveDocument
 
       For I = 1 To .ContentControls.Count
           With .ContentControls(I)
                If .Type = wdContentControlPicture Then
                   Debug.Print I & ", " & .ShowingPlaceholderText
                End If
        End With
       Next I
 
  End With
 
 
End Sub

[Philippe Tulliez]

Bonjour Eric,
Génial, celle là je ne l'ai pas vue

Du coup, mon code est réduit à sa plus simple expression

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub HiddenControl()
  ' Masque les contrôles du contenu non utilisés
  Dim Ctrl As ContentControl
  For Each Ctrl In ThisDocument.ContentControls
    With Ctrl
    .Range.Font.Hidden = .ShowingPlaceholderText
    End With
  Next
End Sub