Создать надстройку для добавления заметок в PowerPoint (VBA)

Question

Я хотел бы создать простой макрос для powerpoint, который позволил бы мне нажать одну кнопку, чтобы автоматически вставить желтую заметку на слайд, чтобы я мог вставить комментарий. Это то, что мне нужно делать снова и снова в моей текущей работе, и сейчас я трачу много времени, каждый раз создавая прямоугольник -> окрашивая его в желтый цвет -> создавая черный контур -> устанавливая цвет шрифта на красный и размер до 12..

Цените любую помощь здесь, я знаю, что это не должно быть очень трудно!

Спасибо!

пример стандартной наклейки на слайде (в масштабе)

Answer 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