スキルアップ・問題解決なら、モーグにおまかせ！

指定したコマンドバーのボタンコントロールに割り当てられているボタンイメージのID番号を設定します。

構文  Object.FaceId

設定項目    内容
Object      CommandBarButtonオブジェクト [省略不可]

次のサンプル1は、指定したボタンのイメージを400番のイメージに設定します。

●サンプル1●
Sub FaceIdSamp1()
    CommandBars("Sample").Controls(1).FaceId = 400
    '---"Sample"の１つめのコマンドバーコントロールのイメージIdを400に

End Sub

何番がどのようなボタンイメージになるかは、次のサンプル2で確認してください。

●サンプル2●
Sub FaceIdSamp2()
    Dim myCB As CommandBar
    Dim i As Integer

    On Error Resume Next
    Set myCB = CommandBars.Add(Name:="FaceIdSample")
    '---テンポラリのツールバー作成
    myCB.Visible = True
    With myCB.Controls.Add       '---コマンドバーボタンを追加
        For i = 1 To 3518         '---FaceIdは3518まで存在します
            .FaceId = i            '---i番のFaceIdに変更
            .CopyFace              '---ツールバーボタンのイメージをコピー
            Range("B2:K353").Cells(i).Select
            ActiveSheet.PasteSpecial Format:="ビットマップ", Link:=False, _
            DisplayAsIcon:=False   '---i番目のセルにイメージ貼り付け
        Next i
        myCB.Delete               '---テンポラリのツールバー削除
    End With
End Sub

上記サンプルの終了時には時間がかかりますので、注意してください。

●注意●
FaceIdプロパティで設定ができるのは、ボタンのイメージだけです。機能に関してはIdプロパティで設定します。