用戶輸入以選擇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演示文稿

回答

相關問題