Comment déterminer un espace réservé est utilisé?

Question

Étant donné une diapositive, comment peut-on savoir si tous les espaces réservés de disposition de diapositives sont utilisés dans PowerPoint? Est-il possible d'empêcher l'utilisation automatique d'un espace réservé lors de l'ajout d'une image si ce paramètre n'est pas utilisé?

Answer 1

Vous devez parcourir tous les espaces réservés de la diapositive, déterminer le type de chacun et vérifier si le format est correct. Il existe 18 PpPlaceholderType, vous devez donc les configurer tous, mais voici un exemple de ce que vous pouvez faire pour vérifier si un espace réservé est utilisé.

Sub CheckPlaceholders() 
Dim ap As Presentation: Set ap = ActivePresentation 
Dim sl As Slide: Set sl = ap.Slides(2) 
Dim shs As Shapes: Set shs = sl.Shapes 
Dim ph As Placeholders: Set ph = shs.Placeholders 
Dim p As Shape 
    For Each p In ph 
     Select Case p.Type 
     Case PpPlaceholderType.ppPlaceholderHeader 
      If p.TextFrame.HasText Then 
       Debug.Print "This Placeholder is in use" 
      End If 
     Case PpPlaceholderType.ppPlaceholderChart 
      If p.HasChart Then 
       Debug.Print "This Placeholder is in use" 
      End If 
     End Select 
    Next 
End Sub 

Pour insérer, par exemple, une photo et pas il arrive dans un espace réservé, la seule façon que j'ai trouvé est de créer une boucle pour ajouter des images jusqu'à ce que l'un d'eux est d'un espace réservé, puis supprimer ceux déjà insérés.

Sub AddPicture() 
    Dim pic As String 
    pic = "C:\Users\Me\Desktop\beigeplum.jpg" 
    Dim ap As Presentation: Set ap = ActivePresentation 
    Dim sl As Slide: Set sl = ap.Slides(1) 
    Dim sh As Shape 

    Do 
     Set sh = sl.Shapes.AddPicture(pic, msoFalse, msoTrue, 1, 1) 
     sh.Tags.Add "MYPICTURE", 0 
    Loop Until sh.Type <> 14 

    Dim p As Shape 
    For Each p In sl.Shapes 
     If p.Type = 14 Then 
      If p.Tags.count > 0 Then 
       If p.Tags.Name(1) = "MYPICTURE" Then 
        p.Delete 
       End If 
      End If 
     End If 
    Next 
End Sub 

Answer 2

Une solution plus élégante pour savoir si un espace réservé contient un élément ou non, et qui est générique pour tous les types:

if (selectedSlide.Shapes.Placeholders[i].PlaceholderFormat.ContainedType != Microsoft.Office.Core.MsoShapeType.msoAutoShape) 

Un espace réservé est de ContainedType msoAutoShape si rien n'est placé à l'intérieur l'espace réservé. Lorsque vous insérez par exemple une image dans l'espace réservé, le type change en type d'élément, dans ce cas msoPicture.

Office ajoute automatiquement des éléments au premier espace réservé disponible (ajouté en premier dans le fichier principal) ou, pour les images, à la priorité ppPlaceholderPicture.