创建加载项以在 powerpoint (VBA) 中添加便笺答案

【问题标题】：Create add-in to add sticky notes in powerpoint (VBA)创建加载项以在 powerpoint (VBA) 中添加便笺
【发布时间】：2020-07-02 16:20:06
【问题描述】：

我想为 powerpoint 创建一个简单的宏，允许我单击一个按钮自动在我的幻灯片上插入一个黄色便笺，这样我就可以插入评论。这是我需要在当前工作中一遍又一遍地做的事情，现在我浪费了很多时间，每次创建一个矩形 -> 将其着色为黄色 -> 创建一个黑色轮廓 -> 将字体颜色设置为红色和大小到 12..

在这里感谢任何帮助，我知道这应该不会很难！

谢谢！

example of standard stickynote on a slide (at scale)

【问题讨论】：

这可能不是很困难-到目前为止您尝试了什么？
thespreadsheetguru.com/the-code-vault/2014/2/22/… 让您开始。您可以在快速访问工具栏上添加一个按钮来触发宏
您的 PowerPoint 版本是否有宏记录器？如果是这样，请开始录制，制作您的形状，对其进行格式化，然后停止录制。然后，您可以添加一个按钮，就像 Tim 上面所说的那样。 PowerPoint 中还有一个注释面板，您可能会发现它也可以完成这项工作。
添加评论对您不起作用（在最新版本的 PowerPoint 中位于“审阅”选项卡上）。
谢谢蒂姆。这段代码很棒，我可以在快速访问工具栏中创建一个按钮。但是，该按钮不适用于其他演示文稿。您知道如何创建一个可用于 PPT 2010 中所有演示文稿的宏吗？

标签： vba powerpoint stickynote

【解决方案1】：

我为你写了这篇文章，希望对你有所帮助。

Sub insert_sticky_note()

    Dim mySlide As PowerPoint.Slide
    Dim myTextbox As PowerPoint.Shape

    Set mySlide = ActivePresentation.Slides(ActiveWindow.View.Slide.SlideNumber)

    Set myTextbox = mySlide.Shapes.AddTextbox(msoTextOrientationHorizontal, _
        Left:=0, Top:=10, Width:=200, Height:=50)

    myTextbox.Fill.BackColor.RGB = RGB(250, 246, 0) 'yellow
    myTextbox.Fill.Transparency = 0.2 'translucent
    myTextbox.Height = 150
    myTextbox.Width = 300
    myTextbox.TextFrame2.AutoSize = msoAutoSizeTextToFitShape 'https://www.pcreview.co.uk/threads/how-to-vba-code-shrink-text-on-overflow.3537036/#post-12183384

    With myTextbox.TextFrame.TextRange
        .Text = "Note"
        'With .Font
        '    .Size = 12
        '    .Name = "Arial"
        'End With
    End With
End Sub

【讨论】：