将形状添加到幻灯片并设置格式

Eltiburon

我正在尝试在下面的vba脚本中为PowerPoint幻灯片添加注释注释。这个想法是该脚本可用于向幻灯片添加“待检查的注释”。因此,我在一个显示菜单的小插件中对其进行了设置,因此添加了TBC,TBU,TBD注释。子程序会不时显示错误,并且不能总是完全发挥作用(我猜是因为我在代码中写的部分:

ActiveWindow.Selection.SlideRange.Shapes("Rectangle 4").Select

谁能协助我使脚本变得防弹。对该方法进行简短的解释将是很好的。这样,我就可以了解将来的情况。

最好,

Eltiburon

到目前为止,这是我的整个脚本:

Sub InsertShape_TBC()

ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShapeRectangle, 575.5, 9.12, 124.75, 34.12).Select
With ActiveWindow.Selection.ShapeRange
    .Fill.Visible = msoTrue
    .Fill.Solid
    .Fill.ForeColor.RGB = RGB(162, 30, 36)
    .Fill.Transparency = 0#
    .Line.Visible = msoFalse
End With
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
With ActiveWindow.Selection.TextRange
    .Text = "[TBC]"
    With .Font
        .Name = "Arial"
        .Size = 18
        .Bold = msoFalse
        .Italic = msoFalse
        .Underline = msoFalse
        .Shadow = msoFalse
        .Emboss = msoFalse
        .BaselineOffset = 0
        .AutoRotateNumbers = msoFalse
        .Color.SchemeColor = ppForeground
    End With
End With
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 4").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 4").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=6).Select
ActiveWindow.Selection.TextRange.Font.Bold = msoTrue
ActiveWindow.Selection.TextRange.Font.Color.RGB = RGB(Red:=255, Green:=255, Blue:=255)
ActivePresentation.ExtraColors.Add RGB(Red:=255, Green:=255, Blue:=255)
ActiveWindow.Selection.Unselect
End Sub
史蒂夫·林兹伯格

这看起来像是由PPT早期版本中的宏记录器生成的代码。

首先,除非绝对必要,否则请不要选择代码中的任何内容(很少这样做)。请改用形状引用(如您在我为回答其他问题而发布的其他两个示例中所见)。

因为录制的宏假定您正在使用的矩形称为Rectangle 4,所以只有在已具有三个矩形的幻灯片上运行它时,该宏才起作用。所以与其:

Dim oSh as Shape
Set oSh = ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShapeRectangle, 575.5, 9.12, 124.75, 34.12)
' Notice that I removed the .Select from the end of your code.  
' We don't want to select anything if we don't have to.

' Then
With oSh
   With .TextFrame.TextRange
      .Text = "[TBC]"
       With .Font
        .Name = "Arial"
        .Size = 18
        .Bold = msoFalse
        .Italic = msoFalse
        .Underline = msoFalse
        .Shadow = msoFalse
        .Emboss = msoFalse
        .BaselineOffset = 0
        .AutoRotateNumbers = msoFalse
        .Color.SchemeColor = ppForeground
    End With   ' Font
   End with   ' TextRange
End With   ' oSh, the shape itself

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

将形状添加到幻灯片并设置格式

来自分类Dev

将版本信息添加到标题幻灯片

来自分类Dev

如何将图像添加到幻灯片

来自分类Dev

将幻灯片添加到部分

来自分类Dev

将链接添加到幻灯片

来自分类Dev

将版本信息添加到标题幻灯片

来自分类Dev

将图片添加到幻灯片中会根据幻灯片模板将它们放置在不同的位置

来自分类Dev

Rstudio 0.98.1028仅将背景图像添加到标题幻灯片

来自分类Dev

使用jQuery将幻灯片动态添加到Bootstrap 3轮播中

来自分类Dev

在VBA powerpoint中如何将新幻灯片添加到空白演示文稿

来自分类Dev

将幻灯片动画添加到水平滚动系统

来自分类Dev

我想使用xaringan将徽标添加到幻灯片标题行

来自分类Dev

将垂直幻灯片动画添加到导航栏-仅CSS

来自分类Dev

Javascript-将全屏视频添加到图像幻灯片

来自分类Dev

将幻灯片显示模块添加到satchmo时出错

来自分类Dev

在Powerpoint 2016中将文本框添加到所有幻灯片

来自分类Dev

将活动类添加到当前幻灯片 3d carrousel

来自分类Dev

如何将幻灯片放映动画添加到我的侧边代码

来自分类Dev

如何使用python将图像添加到幻灯片?

来自分类Dev

Bootstrap Carousel 下一张幻灯片添加到上一张幻灯片的下方

来自分类Dev

如何使用Open XML .net SDK将幻灯片编号添加到PowerPoint演示文稿中?

来自分类Dev

将超链接添加到Google幻灯片演示文稿中的表格单元格

来自分类Dev

添加到现有的较早的幻灯片脚本中以包含图像标题

来自分类Dev

在JSSOR中,如何将其他幻灯片添加到全宽滑块?

来自分类Dev

在JSSOR中,如何将其他幻灯片添加到全宽滑块?

来自分类Dev

如何将自动幻灯片效果添加到特定的图片库?

来自分类Dev

需要将淡入添加到图像 om 幻灯片

来自分类Dev

Slick - 自动滑动到添加到幻灯片的新项目

来自分类Dev

Bxslider将中间幻灯片设置为活动幻灯片

Related 相关文章

  1. 1

    将形状添加到幻灯片并设置格式

  2. 2

    将版本信息添加到标题幻灯片

  3. 3

    如何将图像添加到幻灯片

  4. 4

    将幻灯片添加到部分

  5. 5

    将链接添加到幻灯片

  6. 6

    将版本信息添加到标题幻灯片

  7. 7

    将图片添加到幻灯片中会根据幻灯片模板将它们放置在不同的位置

  8. 8

    Rstudio 0.98.1028仅将背景图像添加到标题幻灯片

  9. 9

    使用jQuery将幻灯片动态添加到Bootstrap 3轮播中

  10. 10

    在VBA powerpoint中如何将新幻灯片添加到空白演示文稿

  11. 11

    将幻灯片动画添加到水平滚动系统

  12. 12

    我想使用xaringan将徽标添加到幻灯片标题行

  13. 13

    将垂直幻灯片动画添加到导航栏-仅CSS

  14. 14

    Javascript-将全屏视频添加到图像幻灯片

  15. 15

    将幻灯片显示模块添加到satchmo时出错

  16. 16

    在Powerpoint 2016中将文本框添加到所有幻灯片

  17. 17

    将活动类添加到当前幻灯片 3d carrousel

  18. 18

    如何将幻灯片放映动画添加到我的侧边代码

  19. 19

    如何使用python将图像添加到幻灯片?

  20. 20

    Bootstrap Carousel 下一张幻灯片添加到上一张幻灯片的下方

  21. 21

    如何使用Open XML .net SDK将幻灯片编号添加到PowerPoint演示文稿中?

  22. 22

    将超链接添加到Google幻灯片演示文稿中的表格单元格

  23. 23

    添加到现有的较早的幻灯片脚本中以包含图像标题

  24. 24

    在JSSOR中,如何将其他幻灯片添加到全宽滑块?

  25. 25

    在JSSOR中,如何将其他幻灯片添加到全宽滑块?

  26. 26

    如何将自动幻灯片效果添加到特定的图片库?

  27. 27

    需要将淡入添加到图像 om 幻灯片

  28. 28

    Slick - 自动滑动到添加到幻灯片的新项目

  29. 29

    Bxslider将中间幻灯片设置为活动幻灯片

热门标签

归档