Excel VBA 質問スレッド No.53 (解決済)

オブジェクトの移動について

投稿者 : ふーりえ     投稿日時 : 2018/11/18(Sun) 19:35:10     OS : Windows 10     EXCEL : Excel 2013
はじめまして。VBAを勉強しているの者です。

ワークシート上に描いた円や四角などの図形を右から左へ、また上から下へとアニメーションのように移動させる方法がありましたら、ご教授ください。

よろしくお願いします。

[返信 1] Re : オブジェクトの移動について
投稿者 : 田中     投稿日時 : 2018/11/18(Sun) 21:00:23
例としてSheet1にある星1というオブジェクトを

斜め右下方向へ動かすサンプルマクロを作ってみました。

アニメーション時間や動かす方向はお好きなように変更してください。

Sub sample()

Dim animate_sec As Integer
Dim frame_msec As Integer
Dim frame_count As Integer
Dim i As Integer

animate_sec = 3 ' アニメーション時間(3秒)
frame_msec = 100 ' 1フレームの待ち時間(100ミリ秒)
frame_count = animate_sec * 1000 / frame_msec

With Worksheets("Sheet1").Shapes("星1")

For i = 1 To frame_count
.Top = .Top + 1
.Left = .Left + 1
Application.Wait [Now()] + frame_msec / 86400000
Next i

End With

End Sub

[返信 2] Re : オブジェクトの移動について
投稿者 : ふーりえ     投稿日時 : 2018/11/19(Mon) 12:56:18
田中様

サンプルのご提示ありがとうございました。
("星1")の記載を変更して、無事に動きました。

これを元にして、いろいろやってみたいと思います。

スポンサード リンク
 
 
当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2019-07-18 01:53:54 )

Page
Top