Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
使用VBA的圆角文本框_Vba_Powerpoint - Fatal编程技术网

使用VBA的圆角文本框

使用VBA的圆角文本框,vba,powerpoint,Vba,Powerpoint,我在PowerPoint幻灯片中有一个预定义的文本框,我需要将其圆角。使用VBA有什么方法可以做到这一点吗?此示例假设您要查找的形状是幻灯片1上的第三个形状。相应调整: Sub Test() Dim oSh As Shape Set oSh = ActivePresentation.Slides(1).Shapes(3) With oSh .AutoShapeType = msoShapeRoundedRectangle .Adjustments(1) = 0.25 End Wi

我在PowerPoint幻灯片中有一个预定义的文本框,我需要将其圆角。使用VBA有什么方法可以做到这一点吗?

此示例假设您要查找的形状是幻灯片1上的第三个形状。相应调整:

Sub Test()
Dim oSh As Shape
Set oSh = ActivePresentation.Slides(1).Shapes(3)
With oSh
    .AutoShapeType = msoShapeRoundedRectangle
    .Adjustments(1) = 0.25
End With
End Sub

它将文本框转换为圆角矩形,然后将角设置为圆角。据我所知,您无法绕过常规文本框的拐角。

我认为您无法绕过VBA文本框的拐角,但您可以。这对你有用吗?谢谢你的建议Richard,不幸的是,这对美沙酮不起作用Steve,你已经解决了我的问题