Group内のパーツを移動

Question

Group化された中のパーツを移動するとGroup全体が伸縮するする問題の回避方法をご教授下さい。
Excel sheet上にRectangleを配置、その中にTextBoxを置きます。
両者をグループ化します。

内部のテキストボックスには"insideTbx"と名前を付けます。
この状態で下記のマクロを動かすと表示倍率が100の倍数の時は、TextBoxが右に100Pt、左に
100Pt移動して戻ってきます。　
しかし100%の倍数以外では外側のRectangleが伸縮してしまいます。
何故このような事になるの分かりません。
グループ化を解かずに任意の倍率で内部のパーツだけを動かす方法はありませんでしょうか？
win10 excel2016 win8.1 excel2013で同じ現象を確認しています。
又内部のTextBoxはLineでもFreeFormでも同じ現象が生じます。

Sub move()
      Dim shp As Shape
      Set shp = ActiveSheet.Shapes("insideTbx") 
      Dim i As Integer
      For i = 0 To 200
            shp.Left = shp.Left + 0.5
            DoEvents
      Next i
      For i = 0 To 200
            shp.Left = shp.Left - 0.5
            DoEvents
      Next i      
End Sub

Comments

[bebebe_]

「shp.Left = shp.Left」や「shp.IncrementLeft 0」でも同じ挙動になるので根本的な解決は難しそうな気がします。
解決方法が見つからない場合代替案として
マクロ開始時に現在の倍率を取得して倍率100%で動作後に取得した倍率に戻す
もしくは
マクロ開始時に指定したグループのすべての名前を取得後グループを解除して動作後に取得した名前をグループ化するなどが考えられます。

[ABII]

早速のコメント有難うございます。
操作中常に倍率を100%の整数倍に強制するようにして逃げるしかないですね。