Ermitteln, ob ein Powerpoint - Textfeld die Seitengröße überschreitet

Question

Ich habe das schon eine Weile untersucht und habe keinen Hintergrund gefunden, ob Powerpoint VBA feststellen kann, ob ein Objekt (Textfeld oder Tabelle) außerhalb der Grenzen des Seitenabmessungen.

Die spezifische Anwendung, die ich zu verwalten versuche, ist, wenn ich Text in eine PPT-Tabelle aus Excel durch einen Fund/Ersetzung von bestimmten Datenmarkierungen, kenne ich nicht die spezifischen Dimensionen des Textes, so kann ich überlaufen die Seitengrenze.

Ich kann den Text auch nicht verkleinern, da ich die Designtreue der Schriftgröße beibehalten muss.

Ich möchte versuchen, zu messen, wenn dieser Überlauf passiert und VB verwenden, um eine neue Seite zu erstellen, auf der ich weiterhin meinen Text aus Excel fließen kann.

Im Moment mache ich dies, indem ich die Seitenvorlage auf 15 Zeilen limitieren und dann manuell den Überlauf der Seite anpassen. Könnte meine einzige Option sein, aber ich dachte, ich würde die Frage stellen.

Answer 1

Dies sollte Ihnen den Einstieg:

Option Explicit 

Sub TextboxCheck() 

Dim shp As Shape 
Dim sld As Slide 
Dim sldHeight As Long 

sldHeight = ActivePresentation.PageSetup.SlideHeight 

For Each sld In ActivePresentation.Slides 
    For Each shp In sld.Shapes 
     If shp.Type = msoTextBox Then 
      If shp.Top + shp.Height > sldHeight Then 
       'Add your code here for moving the text to a new slide 
      End If 
     End If 
    Next shp 
Next sld 

End Sub