最近のピンボール関連で、動かす技術を使用していますので、Tipsにもカキコミます。
是非試してみてくださいね。
まずはサンプルです。
下の動くオブジェ.xlsをクリックしてください。エクセル直貼りですので、すぐに起動します。
フォームが現れたら、お好きな場所をクリックしてください。
その場所に向かってイメージが動きます。
作り方です。
図のようにユーザーフォーム(UserForm1)にイメージ(Image1)を置きます。
フォームのコードとして下記のマクロを記述します。
適当にフォームをクリックしてみてください。
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With Me.Image1
anchor:
If Abs(Y - .Top) < 0.5 Then Exit Sub
If Abs(X - .Left) < 0.5 Then Exit Sub
If Y = .Top And X = .Left Then Exit Sub
th = Application.WorksheetFunction.Atan2(X - .Left, Y - .Top)
.Top = .Top + Sin(th)
.Left = .Left + Cos(th)
ix = 0
Do While ix < 50
ix = ix + 1
DoEvents
Loop
GoTo anchor
End With
End Sub
Atan2は現在のImage1（の左上）から、クリックしたポイントまでの角度を求めるものです。
thにはラジアンが返ってきます。
さらに三角関数を使用して、ｘ座標、ｙ座標の増減量を割り出し、オブジェクトの.topと.leftに加算します。
DoEventsは処理を解放するもので、これを行わないと途中の描画ができません。
※mousedownイベントのコードが終了ぜずに、DoEventsを使用していますので、
別のmousedownイベントが発生したりすると、予期しないエラーが起こる場合があります。
ゲームなどに使用する場合は、もうすこし工夫が必要かも。