エクセルのオートシェイプをセルに合わせるVBA Script

Question

以下のようなコードを実行しても意図したとおりセル内にオートシェイプを配置することができません。

コードの実行後にオートシェイプとセルのプロパティを調べると値が一致していないことも確認しました。

なぜでしょうか？

(office2010 ではできていたと思います。）

set myShape= selection.shaperange(1)

set myCell=myShape.TopLeftCell

with myShape

    .lockAspectRatio=msoFalse

    .Width=myCell.Width

    .Height=myCell.Height

    .Left=myCell.Left

    .Top=myCell.Top

end With

Answer 1

自己解決できたので報告します。

2つ解像度の異なるディスプレイを「表示画面を拡張する」状態で使っています。

メインディスプレイでエクセルを表示している状態でコードの実行を行うと意図した動作となりますが、

メインディスプレイではない方でエクセルを表示している状態でコードの実行を行うとオートシェイプが

セルとズレてしまうことがわかりました。

できれば表示ディスプレイがどちらであってもコードが正しく実行されるようにエクセルが更新されることを望みますが、

このことをMicroSoftに伝えるにはどうしたらよいでしょうか？

Answer 2

バージョンによって違うかもですが、「ファイル」タブ（？）の左下の方に

「フィードバック」というのがあり提案や不満点を送ることが

一応できるようになっています

Answer 3

VBA専用のフォーラムがあるため、並行してご投稿してみてください。

https://social.msdn.microsoft.com/Forums/ja/hom...