Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

69133 / 76807

←次へ　｜　前へ→


	【12194】Re:テキストボックスの作成

roki - 04/3/26(金) 13:02 -


	引用なし

	パスワード

▼ichinose さん：
返信ありがとうございます

>以下のマクロで何となく、それらしく動いています。
>
>Thisworkbookのモジュールに
>
>'================================================================
>Private WithEvents cmd As CommandBarButton
>Private click_flg As Long
>'================================================================
>Sub sample()
>　 With ActiveSheet
>　　　cnt = .Shapes.Count
>　　　click_flg = 0
>　　　Set cmd = Application.CommandBars("Drawing").Controls(9)
>　　　Application.CommandBars("Drawing").Controls(9).Execute
>　　　Do Until (.Shapes.Count = cnt + 1) Or click_flg >= 2
>　　　　 DoEvents
>　　　　 Loop
>　　　If .Shapes.Count = cnt + 1 Then
>　　　　 .Shapes(.Shapes.Count).Line.Visible = msoflse
>　　　　 End If
>　　　End With
>　 Set cmd = Nothing
>End Sub
>'========================================================================
>Private Sub cmd_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
>　 click_flg = click_flg + 1
>End Sub
>
>
>「Thisworkbook.sample」を実行してみて下さい。
>
>ただ、不安定なところもあります。
>テキストボックス作成範囲を選択中は、コマンドバーのいくつかのコマンドボタンの
>表示が非表示状態になってしまいます（実際にクリックすることはできますが）。
>
>
>確認してみて下さい。

教えていただいたものを一通り試してみてこのプログラムを使うことに
しました。
ありがとうございました！！

0 hits

▼

【12175】テキストボックスの作成 roki 04/3/25(木) 18:34