VB6.0 SP6
Office2000
エクセルシートにオートシェープを貼り付けています。
貼り付けたオートシェープを移動させたいのですが、
・貼り付けたオートシェープのオブジェクト名を知る方法がわからない。
・貼り付けたオートシェープの移動方法(どんなコードを書けばいいのか)がわからない。
ご教授願います。
> オブジェクト名を知る方法がわからない。
オートシェイプをコードで作成しているのであれば、
作成時に命名しておけば済みますね。
一方、名前が不明な場合は(ユーザー操作で作成された物など)、
「どのオートシェイプを操作するのか」を区別せねばなりません。
シート上のシェイプが一つだけならば、対象 Worksheet に対して
.Shapes(1) でアクセスできますが、複数のシェイプがある場合には
それぞれを列挙して、シェイプの色や位置などを調査し、どれが
目的のシェイプかどうかを調べていくことになるでしょう。
> 移動方法
Shape オブジェクトの Left / Top プロパティ等を操作してみてください。
これらを 0 にすれば、シートの左上に配置されることになります。
魔界の仮面弁士様回答ありがとうございます。
.Shapes(1)でやってみたら、移動させることができました。
また何かありましたらお願いします。