VBA画像をアニメーションでサイズ変更

Question

以下のコードは、サイズ変更エフェクトを適切にアニメーション化しますが、画像の左隅からアニメーション化します。どのようにして、すべての方向に拡大する中心から行うことができますか？このような

Private Sub Timer1_Timer() 

If Image1.Width >= 2916 Then 
    Image1.Width = 2916 
    Timer1.Enabled = False 
    Exit Sub 
End If 
Image1.Width = Image1.Width + 50 
Image1.Height = Image1.Height + 50 

End Subの

Answer 1

何か？ （未テスト）：

Private Sub Timer1_Timer() 

If Image1.Width >= 2916 Then 
    Image1.Width = 2916 
    Timer1.Enabled = False 
    Exit Sub 
End If 

Image1.Left = Image1.Left - 25 
Image1.Width = Image1.Width + 50 
Image1.Top = Image1.Top - 25 
Image1.Height = Image1.Height + 50 

End Sub