comment effacer un contrôle de contenu d'image avec macro en ms mot

Question

J'ai créé un formulaire où l'utilisateur a la possibilité de réinitialiser (effacer) le formulaire. J'ai été en mesure de tout effacer à partir de la forme (boîte de texte, & cases à cocher), mais je ne sais pas comment effacer une image si l'on a été inséré sans supprimer l'option entière. J'ai essayé d'utiliser la méthode des signets, cependant, sans succès. le signet est sélectionné puis supprimer. Qui causent le code de ne pas reconnaître le InlineShape (donc -. Erreur d'exécution « 5941 « le membre demandé de la collection n'existe pas »

ActiveDocument.Bookmarks("picture").Select 
Selection.InlineShapes(1).Delete 
Selection.InsertAfter "" 

Answer 1

Code Vous ne fait aucune mention des contrôles de contenu cependant

Dim oCC As ContentControl 
Set oCC = ActiveDocument.SelectContentControlsByTitle("Picture1").Item(1) 
If oCC.Range.InlineShapes.Count > 0 Then oCC.Range.InlineShapes(1).Delete 

où « Picture1 » est le titre du contrôle de contenu d'image, devrait faire l'affaire.