Question

我已经研究了一段时间，但没有找到关于Powerpoint VBA是否可以确定对象（文本框或表格）是否超出页面尺寸范围的任何背景。

我试图管理的具体应用是当我将文本从Excel流入PPT表时，通过查找/替换特定数据标记，我不知道文本的具体尺寸，所以我可能溢出页面边界。

我也不能缩小文本，因为我必须保持类型大小的设计保真度。

我想尝试测量何时发生这种溢出，并使用VB创建一个新页面，我可以继续从Excel中传输我的文本。

现在我这样做只是将页面模板限制为15行，然后手动调整页面的上/下流量。可能是我唯一的选择，但我想我会提出这个问题。

Answer 1

这应该让你开始：

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

确定powerpoint文本框是否超出页面大小

1 个答案: