Excel VBA質問箱 IV

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

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


58109 / 76732 ←次へ | 前へ→

【23355】Re:コマンドボタンのコメント
回答  IROC  - 05/3/19(土) 10:41 -

引用なし
パスワード
   このような感じになります。

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  
  If X >= 20 And X <= CommandButton1.Width - 20 And _
    Y >= 20 And Y <= CommandButton1.Height - 20 Then
    
    ActiveSheet.Shapes("オートシェイプ 1").Visible = True
  
  Else
    ActiveSheet.Shapes("オートシェイプ 1").Visible = False
  End If
  
End Sub

0 hits

【23313】コマンドボタンのコメント mitu 05/3/18(金) 16:49 質問
【23320】Re:コマンドボタンのコメント IROC 05/3/18(金) 17:09 回答
【23352】Re:コマンドボタンのコメント mitu 05/3/19(土) 9:26 お礼
【23355】Re:コマンドボタンのコメント IROC 05/3/19(土) 10:41 回答
【23359】Re:コマンドボタンのコメント mitu 05/3/19(土) 13:15 お礼

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