☰

如何在 PowerPoint 中将一系列框一个接一个地放置？

tag-icon • tag-icon microsoft-powerpoint
如何在 PowerPoint 中将一系列框一个接一个地放置？

在 PowerPoint 中是否有办法将一系列矩形框紧挨在一起，使它们形成连续的一行？我知道水平分布、对齐和贴合，但我没有看到自动将它们放在一起的选项，即“线性化”它们。

我不想改变盒子的尺寸，因为它们是固定的，只想把它们一个接一个地水平放置，彼此稍微接触。而且通过打开捕捉功能将它们单独放置太麻烦了，因为盒子太多了，不切实际。

为了方便起见，您可以假设它们的大小相同，但如果它们的大小各不相同，我也很想知道是否有办法做到这一点。

在此处输入图片描述

答案1

手动方法是使用等距参考线拖动框以均匀分布形状。拖动形状时，这些参考线会自动出现（您会看到虚线），将形状与参考线对齐时，形状会“对齐”。

否则，如果您想冒险，可以使用 VBA 宏，它要求文件是.pptm而不是.pptx。

以下 VBA 宏将使所有选定的形状与第一个选定的对象垂直对齐，并按选择顺序排列：

Sub AlignMultipleShapes()

Dim shp   As Shape
Dim count As Integer
Dim curix As Integer
Dim topy  As Integer
Dim lastx As Integer

'Count How Many Shapes Are Selected
count = Windows(1).Selection.ShapeRange.count

'Loop Through each selected Shape (align with first selected)
For curix = 1 To count
  If curix = 1 Then
    Set shp = Windows(1).Selection.ShapeRange(1)
    topy = shp.top
    lastx = shp.Left + shp.Width
  Else
    Set shp = Windows(1).Selection.ShapeRange(curix)
    'Align Top
    shp.top = topy
    'Align Center (Vertical Center)
    shp.Left = lastx
    lastx = shp.Left + shp.Width
  End If
Next curix

End Sub

有用的参考资料：

相关内容