PowerPointのリボンに読み取り専用の切替えボタンを追加する

2024年4月14日2024年4月28日

Excelには読み取り専用の切り替えボタンがありますが、PowerPointやWordにはないですよね。

というわけで、PowerPointに読み取り専用を切り替える（ON/OFFする）ボタンを追加する方法をまとめました。

また、保存されていないファイルを読み取り専用にしようとすると、保存するかどうかのダイアログが表示されるようにしています。

~~今回はPowerPointに追加する方法ですが、近いうちにWordに追加する方法もまとめたいと思います。~~

Wordについても、やり方をまとめました。

準備

PowerPointに読み取り専用ボタンを設定するにあたり、以下3つのファイルが必要です。

読み取り専用で開くためのマクロが記述されたファイル（ppamファイル）
リボンのUIを定義するファイル（xmlファイル）
参照情報を定義するファイル（relsファイル）

最終的には、この3ファイルをppamファイルにまとめて使用します。完成形のファイルを作成しましたので、よろしければダウンロードして使ってください。

PowerPoint_ReadOnlySwitch

1 ファイル 6.58 KB

ダウンロード

それぞれの内容を知りたい方は、このまま読み進めてください。内容には興味がないという人は、設定方法まで読み飛ばして下さい。

ppamファイル

PowerPointを読み取り専用で開くためのマクロは以下のようになります。

コメントも追加していますので、大まかな流れは理解できると思います。

Option Explicit

'**********************************************************
'*　現在のファイルを閉じて、読み取り専用で開きなおす
'**********************************************************

Sub ReadOnlySwitch()
    With ActivePresentation
        If .Saved = False Then
            '未保存のファイルならダイアログを表示
            Dim rc As Long
            rc = MsgBox("保存されていない変更があります。" & Chr(13) & "保存しますか？", vbYesNoCancel + vbQuestion)
            
            If rc = 6 Then
                '「はい」が選択された場合、上書き保存して続行
                .Save
            ElseIf rc = 7 Then
                '「いいえ」が選択された場合、何もせずに続行
            ElseIf rc = 2 Then
                '「キャンセル」が選択された場合、戻る
                Exit Sub
            End If
        End If
        
        Dim path As String: path = .FullName
        Dim isReadOnly As Boolean: isReadOnly = Not .ReadOnly
        '上書きせずに一度閉じる
        .Saved = msoTrue
        Call .Close
    End With
    
    '読み取り専用で開く
    Call Presentations.Open(FileName:=path, ReadOnly:=isReadOnly)
End Sub

xmlファイル

ppamファイル内にある、customUI.xmlファイルを使って、リボンを自分専用にカスタマイズすることができます。

配布しているppamファイルのcustomUI.xmlは以下のようになっています。

<?xml version="1.0" encoding="utf-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
	<ribbon startFromScratch="false">
		<tabs>
			<tab id="MyTab" label="Add-in">
				<group id="MyGroup1" label="Add-in">
					<button id="ReadOnly" label="読み取り専用の設定/解除" imageMso="ReadOnly" size="normal" onAction="ReadOnlySwitch" />
				</group>
			</tab>
		</tabs>
	</ribbon>
</customUI>

relsファイル

配布しているppamファイル内の.relsファイルに、先ほど紹介したcustomUI.xmlファイルの情報を追記しています。

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships"><Relationship Id="myCustomUI" Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="customUI/customUI.xml"/><Relationship Id="rId1" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument" Target="ppt/presentation.xml"/></Relationships>