パワーポイントプレゼンテーションを選択するユーザ入力

Question

パワーポイントのプレゼンテーションに役立つマクロを作成しました。

視覚的な基本エディタに入り、別のプレゼンテーションにボタンを作成するたびにマクロをインポートするのではなく、マクロを操作する必要があるプレゼンテーションをクリックするように促します。ワークブック上で作業するための単一のボタンだけを備えた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 

私は、アドインを作成しないように好みますアドイン。

誰かが良いアイデアを持っている場合、私はすべて耳にします。開発者用タブの使い方を知らない人が新しいプレゼンテーションで実行する必要があるパワーポイントマクロを、どのように作成しますか？

Answer 1

すべてのユーザーが使用するアクションボタンをPPTMファイルのスライドに挿入します。 クリックするとマクロが実行されます。 Slide Show View

[挿入]タブで、[図形]をクリックし、下部の[操作]ボタンの下に追加するボタンの図形をクリックします。 スライド上の場所をクリックし、ドラッグしてボタンの図形を描画します。 [アクションの設定]ダイアログボックスの[マウスのクリック]タブ。選択してここでマクロ

を実行し、それを開いて、彼らはプレゼンテーションを選択させる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. 

その後、あなたの更新マクロの残りの部分を追加します。

はい、ユーザーはマクロファイルを開く必要がありますが、マクロを実行して選択したプレゼンテーションを非常に簡単に更新できます。