システムwiki

フォーマットボタンのときのVBAランタイムエラー

Michael 解決済 最終更新日:2021-04-27 20:44

こんにちは！マクロ-i.eを実行するボタンのフォントフォーマットを変更するマクロに機能を含めようとしています.ボタンをクリックすると、マクロはそれを備えてから、ボタンテキストのフォントを緑から赤に変更します.
そのステップが完了したことを知っている.すべてをクリアしてすべてのボタンテキストを緑に戻す別のマクロがあります.私が使用しているマクロのマクロは記録されています(そして録音中に正しく機能しました)、手を秘めないでください.

記録されたマクロのセクションです:

ActiveSheet.Shapes.Range(配列( "ボタン8")).選択
Application.cutCopyMode= false
selection.font
.name= "calibri"
.FontStyle= "Bold"
.size= 12
.strikethrough= false
.superScript= false
.subScript= false
.outlineFont= false
.shadow= false
.underline= xlunderlineStyleNone
.colorIndex= 50
.tintandshade= 0
.themefont= XltheMefontNone

で終わります

「.tintandshade= 0」行

でランタイムエラー1004を取得しています

このエラーについての援助を理解するだろう！ありがとう

返信リスト(回答:2)

1 #
Vijay 1
コードからこれら2行を削除する
.tintandshade= 0
.themefont= xlthemefontnone
√
2 #
Andreas 1
選択、選択、ActiveCellを使用しないでください、それは遅く、エラーが発生しやすいです.常にオブジェクトを直接参照してください.
とほとんどのコードは不要です.

DIM Sは形状として
S= ActiveSheet.Shapes( "ボタン8")を設定
s.font.
.colorIndex= 50
で終わります
アンドレアス.

√

関連質問