我试图在大型演示文稿中对齐文本框。每一张幻灯片都包含不同的形状,但只有一个文本框中有文本,我希望这个文本框与幻灯片的中心对齐。目前,我有一行代码可以使文本中心在它自己的文本框中对齐,但我想知道是否有一种方法可以在幻灯片的中间使文本框对齐?
Sub TextSize()
Dim oSl As Slide
Dim oSh As Shape
With ActivePresentation
For Each oSl In .Slides
For Each oSh In oSl.Shapes
With oSh
If
我正在尝试使用VBA调整文本框大小。为此,我每次都会更改VBA中的矩形编号,这并不符合VBA的目的。
我需要根据其他单元格中的值调整所选文本框的大小。
Sub ResizeTextBox()
Dim shp As Shape
Set shp = ActiveSheet.Shapes("Rectangle 39")
shp.Height = Application.CentimetersToPoints(Range("Y5").Value)
shp.Width = Application.CentimetersToPoints(Ra