accsess ボタンのデザイン一括指定

Question

お世話になります

Accessでボタンのデザインを一括で指定できないかと思い色々と試行錯誤中です。

現在 Access2013を使用しています。
一括でフォームをポップアップの設定に変更できるマクロは見つけれたのですが
ボタンのデザインを一括で変更するマクロは見つけれませんでした。

エクセルのように手動でマクロを記憶させれたらもう少しヒントが出てくるのでしょうが・・・

私のイメージでは
フォームを開く
すべてのボタンを選択
右クリックメニューの書式のコピーで貼り付け
フォームを閉じる
次のフォームへ・・・

下記のプログラムを流用して考えているのですが

現在わからないことは
・コマンドボタンを一括で選択する方法
・書式のコピーを行う方法

なにか良い方法などございましたら教えていただけると助かります。

Public Function OBJ_UPDATE()
    Dim db              As Database
    Dim ctn             As Container
    Dim doc             As Document
    Dim strTgtObjName   As String
    Set db = CurrentDb
    'フォームを変更
    Set ctn = db.Containers!Forms
    For Each doc In ctn.Documents
strTgtObjName = doc.Name
        'デザインモードで開く
        DoCmd.OpenForm strTgtObjName, acDesign, , , , acHidden
        'プロパティー設定
        With Forms(strTgtObjName)
            .PopUp = True
        End With
        '保存
        DoCmd.Close acForm, strTgtObjName, acSaveYes
        Debug.Print "変更完了:" & strTgtObjName
    Next doc
    Set ctn = Nothing
    'レポートを変更
    Set ctn = db.Containers!Reports
    For Each doc In ctn.Documents
       strTgtObjName = doc.Name
        'デザインモードで開く
        DoCmd.OpenReport strTgtObjName, acDesign, , , acHidden
        'プロパティー設定
        With Reports(strTgtObjName)
'ポップアップ許可
            .PopUp = True
'レコードセレクタ非表示
           .RecordSelectors = False
        End With
        '保存

        DoCmd.Close acReport, strTgtObjName, acSaveYes
        Debug.Print "変更完了:" & strTgtObjName      
    Next doc
    Set ctn = Nothing
    db.Close
    Set db = Nothing
    MsgBox "修正完了", 64
End Function