用户输入以选择PowerPoint演示文稿

我已经创建了一个宏，它可以帮助用户更频繁地更新PowerPoint演示文稿。用户输入以选择PowerPoint演示文稿

而不是进入视觉基本编辑器，每次我想在单独的演示文稿中创建一个按钮，并提示用户单击该宏需要处理的演示文稿时才导入宏。类似于只有一个按钮就可以在工作簿上工作的Excel文档。

我有一个代码在excel中做了类似的操作（获取用户点击表单并在表单上激活并运行宏）如下。

Dim uiSheet As Worksheet 

On Error Resume Next 
    Set uiSheet = Application.InputBox("Select a cell on the key sheet.", Type:=8).Parent 
On Error GoTo 0 

If uiSheet Is Nothing Then 
    MsgBox "Cancelled" 
ElseIf MsgBox("You Selected " & Chr(34) & uiSheet.Name & Chr(34) & ", Proceed?", vbOKCancel + vbQuestion, "Accept/Reject") = vbCancel Then 
    MsgBox "Cancelled" 
    Exit Sub 
End If 

uiSheet.Activate

我宁愿避免创建的加载项，以使宏观的未来用户（这不会永远是我）都会有它很好的和超级简单，不会有导入加载项。

或者，如果有人有一个更好的主意，我全部耳朵。您将如何创建一个需要在不知道如何使用开发人员选项卡的人员的新演示文稿中运行的Powerpoint宏？

来源

2017-08-15 Nadav Cohen

如果代码不需要频繁更新，那么插件是最好的，因为您可以让自定义子代被自定义用户界面调用，无论是在它自己的功能区/“主页”中。你可以有一个单独的pptm来第一次安装和加载插件。 – PatricK

嗯，这可能是真的，我会考虑使它成为一个附加，但我仍然希望保持简单的一个按钮，因为这是我所做的所有其他Excel宏和人员使用的格式这些并不总是最快的学习者 –

要避免使用加载项，您必须将代码放入单独的PPTM中，并训练用户打开您的PPTM，按Alt + F8，选择“从所有打开的演示文稿”然后双击您希望它们运行的宏。这可能会违反安全限制，阻止他们首先打开PPTM或运行其中的宏。一个加载项将需要更多的工作来安装在用户的计算机上，但会给他们一个按钮（通常在功能区）来完成工作。 –

将操作按钮插入PPTM文件中所有用户将使用的幻灯片中。指定它在单击时运行宏。你只能做这部分幻灯片放映视图

在插入选项卡，单击形状，然后在动作按钮（在底部），单击您要添加的按钮形状。单击幻灯片上的某个位置，然后拖动以绘制该按钮的形状。在“动作设置”对话框的“鼠标单击”选项卡中。选择运行宏

下面是一些代码，使用Windows资源管理器，让他们选择演示文稿，然后打开它：

With Application.FileDialog(msoFileDialogFilePicker) 
     .AllowMultiSelect = False 'only allows the user to select one file 
     ' Set the title of the dialog box. 
     .Title = "Select the File." 'Put any text to help the user choose the correct file 
     'clear filters then add pptx filter 
     .Filters.Clear 
     .Filters.Add "PowerPoint files", "*.pptx" ' This can be any file extension to filter the choices 
     ' Show the dialog box. If the .Show method returns True, the 
     ' user picked at least one file. If the .Show method returns 
     ' False, the user clicked Cancel. 
     If .Show = True Then 
     fxname = .SelectedItems(1) 
     End If 
    End With 
Set opres = Presentations.Open(fxname, False, False, True) 'opres is the variable for the choosen file 
opres.Windows(1).Activate 'Activates that presentation.

添加您的更新宏的其余部分。

是的，用户将不得不打开宏文件，但他们可以运行宏来很容易地更新所选的演示文稿。

来源

2017-08-22 15:12:53 mooseman

哦，这是一些优秀的代码。尽管我点击已经打开的PPT，但我正在考虑更多。 –

然后只需将动作按钮添加到演示文稿和宏代码即可。演示文稿必须是一个pptm文件。或者你可以用按钮打开演示文稿并使用其中的宏并运行宏。 – mooseman

这不是一个不幸的选择，否则我绝对会这样做。我想单独与宏进行演示的原因是，原来的宏将是一个免费的ppt –

用户输入以选择PowerPoint演示文稿

回答

相关问题