Excel VBA質問箱 IV

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

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


27404 / 76738 ←次へ | 前へ→

【54655】Re:オブジェクトを選択状態でmsgbox表示
発言  Jaka  - 08/3/25(火) 14:51 -

引用なし
パスワード
   これで精一杯。

Sub ababa()
  Dim Cbr As CommandBar, CLb As CommandBarControl
  Dim CBB As CommandBarButton, ooo As Shape
  On Error Resume Next
  Application.CommandBars("図形の削除").Delete
  Set Cbr = Application.CommandBars.Add(Name:="図形の削除")
  
  Set CLb = Cbr.Controls.Add(msoControlEdit)
  Cbr.Controls(1).Text = "このオブジェクトを削除しますか?"
  Cbr.Controls(1).Width = 200
  
  Set CBB = Cbr.Controls.Add(msoControlButton)
  CBB.Style = msoButtonCaption
  CBB.Caption = "OK"
  CBB.OnAction = "'実行マクロ(1)'"
  Set CBB = Nothing
  
  Set CBB = Cbr.Controls.Add(msoControlButton)
  CBB.Style = msoButtonCaption
  CBB.Caption = "NO"
  CBB.OnAction = "'実行マクロ(2)'"
  Set CBB = Nothing
  Cbr.Protection = msoBarNoChangeVisible
  Cbr.Visible = True
  For Each ooo In ActiveSheet.Shapes
    ooo.TopLeftCell.Select 'オブジェクトを画面内に表示するため
    'ooo.Select
  
    Flg = False
   
    Do Until Flg = True
      If ooo.Visible = msoTrue Then
       ooo.Visible = False
      Else
       ooo.Visible = True
      End If
      ActiveCell.Select
      DoEvents
      'Application.Wait Now + TimeValue("00:00:01")
      Sleep 100
    Loop
    ooo.Visible = True
    '↑ 図形を削除した場合はエラーになるから適当に修正してください。
  Next
  Application.CommandBars("図形の削除").Delete
End Sub

'この辺も適当に修正してください。
Sub 実行マクロ(No As Variant)
If No = 1 Then
  MsgBox "削除"
ElseIf No = 2 Then
  MsgBox "保留"
End If
Flg = True
End Sub

Sub dmdfk()
Application.CommandBars("図形の削除").Delete
End Sub

0 hits

【54635】オブジェクトを選択状態でmsgbox表示 ひげくま 08/3/25(火) 10:31 質問
【54638】Re:オブジェクトを選択状態でmsgbox表示 Jaka 08/3/25(火) 11:00 発言
【54639】Re:オブジェクトを選択状態でmsgbox表示 ひげくま 08/3/25(火) 11:04 発言
【54643】Re:オブジェクトを選択状態でmsgbox表示 Jaka 08/3/25(火) 11:33 発言
【54646】Re:オブジェクトを選択状態でmsgbox表示 ひげくま 08/3/25(火) 11:51 発言
【54655】Re:オブジェクトを選択状態でmsgbox表示 Jaka 08/3/25(火) 14:51 発言
【54657】Re:オブジェクトを選択状態でmsgbox表示 ひげくま 08/3/25(火) 14:57 お礼
【54660】Re:オブジェクトを選択状態でmsgbox表示 Jaka 08/3/25(火) 15:47 発言
【54683】Re:オブジェクトを選択状態でmsgbox表示 VBWASURETA 08/3/26(水) 9:14 発言
【54686】Re:オブジェクトを選択状態でmsgbox表示 ichinose 08/3/26(水) 10:30 発言
【54688】Re:オブジェクトを選択状態でmsgbox表示 VBWASURETA 08/3/26(水) 12:02 発言
【54689】Re:オブジェクトを選択状態でmsgbox表示 ichinose 08/3/26(水) 12:38 発言
【54690】Re:オブジェクトを選択状態でmsgbox表示 VBWASURETA 08/3/26(水) 12:56 発言
【54701】Re:オブジェクトを選択状態でmsgbox表示 ichinose 08/3/26(水) 17:32 発言
【54640】Re:オブジェクトを選択状態でmsgbox表示 VBWASURETA 08/3/25(火) 11:06 発言
【54644】Re:オブジェクトを選択状態でmsgbox表示 ひげくま 08/3/25(火) 11:34 発言
【54645】Re:オブジェクトを選択状態でmsgbox表示 VBWASURETA 08/3/25(火) 11:47 発言
【54647】Re:オブジェクトを選択状態でmsgbox表示 ひげくま 08/3/25(火) 11:53 発言
【54648】Re:オブジェクトを選択状態でmsgbox表示 VBWASURETA 08/3/25(火) 11:57 発言
【54649】Re:オブジェクトを選択状態でmsgbox表示 ひげくま 08/3/25(火) 12:01 発言
【54650】Re:オブジェクトを選択状態でmsgbox表示 ひげくま 08/3/25(火) 12:01 お礼
【54651】Re:オブジェクトを選択状態でmsgbox表示 VBWASURETA 08/3/25(火) 12:42 発言
【54682】Re:オブジェクトを選択状態でmsgbox表示 再... ichinose 08/3/26(水) 7:07 発言

27404 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free