シートに図形の四角などを張り付けた場合、イベントというのがどうなって居るかよくわからない。 参考 http://okwave.jp/qa/q3653505.html(Click以外は)。情報が少ない。 VBAで初心者がやる課題ではないと思う。 オートシェイプ図形ををどの点に注目して使うのかによるが、コントロールツールボックスのテキストボックスやイメージであれば、それらのオブジェクトで使えるイベントで代替出来ないかやってみたら。 Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) MsgBox "AAA" End Sub や Private Sub TextBox1_GotFocus() MsgBox "aaa"
