シートに図形の四角などを張り付けた場合、イベントというのがどうなって居るかよくわからない。 参考 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"
> CGっぽい動画ができるかな?なんて思っていたのですが・・・。 > ゆっくりな動きは実現できそうにないみたいですね。 多少もっさりした感じにしてみました。 Sub Test2() For i = 1 To 46 ActiveSheet.Shapes(1).IncrementRotation i ActiveSheet.Shapes(1).IncrementLeft i / 5 ActiveSheet.Shapes(1).IncrementTop i / 5 wtime = Timer Do While Timer < wtime + 0.3 DoEvents Loop Next i End Sub
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く