在幻灯片上重新定位形状和文本框答案

【问题标题】：Reposition shape and text box on a slide在幻灯片上重新定位形状和文本框
【发布时间】：2020-03-10 18:14:35
【问题描述】：

当我选择一个形状或一个文本框时，我想实现它们将移动到幻灯片上的相同位置（底部对齐）。我的形状和文本框的高度不同，例如，对于文本框，有些只有一行，有些有多行。文本框中的文本在 ppt 中与底部对齐。

我尝试使用代码 .top，但它会将具有两行或多行的文本框移出幻灯片区域。尝试修复如果选定的形状或文本框的高度不同，那么它将从底部停留在左下角向上并停留在幻灯片上。以下是我到目前为止的代码。谢谢

 Sub PositionShape()
     Dim oshp As Shape
     On Error Resume Next

     Set oshp = ActiveWindow.Selection.ShapeRange(1)

     With oshp
         .LockAspectRatio = False
         .Left = 0.5 * 72
         .Top = 7.3 * 72
     End With

 End Sub

【问题讨论】：

.Top = (7.3 * 72) - .Height 或类似的东西
.Top = (7.3 * 72) - .Height 不起作用。不知道我错过了什么。
我发现这篇文章与我的问题相似，但还没有解决方案。 stackoverflow.com/questions/53885841/…

标签： vba powerpoint powerpoint-2016

【解决方案1】：

这会将形状的底部移动到幻灯片的底部：

Sub PositionShape()
  Dim oshp As Shape
  Dim SlideHeight&
  SlideHeight& = Application.ActivePresentation.PageSetup.SlideHeight
  Set oshp = ActiveWindow.Selection.ShapeRange(1)
  With oshp
    .Left = 0.5 * 72
    .Top = SlideHeight& - .Height
  End With
 End Sub

【讨论】：