|
▼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」を実行してみて下さい。
>
>ただ、不安定なところもあります。
>テキストボックス作成範囲を選択中は、コマンドバーのいくつかのコマンドボタンの
>表示が非表示状態になってしまいます(実際にクリックすることはできますが)。
>
>
>確認してみて下さい。
教えていただいたものを一通り試してみてこのプログラムを使うことに
しました。
ありがとうございました!!
|
|