我想为 powerpoint 创建一个简单的宏,这样我只需单击一个按钮即可自动在幻灯片上插入黄色便签,以便我可以插入评论。这是我在当前工作中需要一遍又一遍地做的事情,现在我浪费了很多时间,每次创建一个矩形 ->将其着色为黄色 ->创建黑色轮廓 ->将字体颜色设置为红色和大小到 12..
感谢这里的任何帮助,我知道这应该不会很难!
谢谢!
最佳答案
这是我为您写的,希望对您有所帮助。
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
关于vba - 创建加载项以在 powerpoint 中添加便签 (VBA),我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/42149341/