|
>実験
>シート名が、Sheet1
>コマンドボタン名が、CommandButton1
> であるとして。
>
>Sheet1にコマンドボタンを1つ配置
>そのコマンドボタンをクリックして、以下のイベントを記述
>Private Sub CommandButton1_Click()
> MsgBox ActiveSheet.Parent.Name, vbInformation, "ブック名"
>End Sub
>
>標準モジュールを追加して、
>Sub test()
> 'シートをコピーして新しいブックを作る
> ThisWorkbook.Worksheets("Sheet1").Copy
> 'Clickイベントを起こす
> ActiveSheet.OLEObjects("CommandButton1").Object.Value = True
>End Sub
>
>このTestを実行すると新しいブックの名前が表示されるはずですが。
りんさんありがとうございます。
りんさんのとおりに一からやってみたら、うまくいったのですが、
今、取り組んでいるマクロでやると、WORKSHEETクラスのOBJECTプロパティーが取得できません、というメッセージが出ます。
何でしょうか?
|
|