从自定义功能区按钮运行 powerpoint 子程序答案

【问题标题】：Running powerpoint sub procedure from custom ribbon button从自定义功能区按钮运行 powerpoint 子程序
【发布时间】：2015-11-23 01:49:56
【问题描述】：

我的 ThisAddIn 类中有一个过程（请参阅下面的第一个代码块），我试图从我使用功能区设计器设计的自定义功能区按钮的单击事件中运行它（请参阅第二个代码）。我不断收到错误消息：“对非共享成员的引用需要对象引用。”我需要做什么来解决这个问题？谢谢！

第一块：

Public Class ThisAddIn

    Public Sub fill_textboxes(ByVal control As Office.IRibbonControl)
            Application.DisplayAlerts = False
                For i = 1 To Application.ActiveWindow.Selection.ShapeRange.Count
                Application.ActiveWindow.Selection.ShapeRange(i).TextFrame.TextRange.Text = "..."
                Next
            Application.DisplayAlerts = True
    End Sub

第二块：

Private Sub fill_text_boxes_button_Click(sender As Object, e As RibbonControlEventArgs) Handles fill_text_boxes_button.Click

    Call ThisAddIn.fill_textboxes(fill_text_boxes_button)
End Sub

【问题讨论】：

是否有与错误相关的行号？
是的。第 9 行是“调用此 AddIn.fill_textboxes(fill_text_boxes_button)

标签： button powerpoint ribbon

【解决方案1】：

您需要将 IRibbonControl 接口的实例传递给 fill_textboxes 子。使用代表触发事件的控件的sender 参数：

Private Sub fill_text_boxes_button_Click(sender As Object, e As RibbonControlEventArgs) Handles fill_text_boxes_button.Click

   Call ThisAddIn.fill_textboxes(sender)
End Sub

【讨论】：