セルに値を入力して図形の位置を変更する。

1  現状

Excelの出力シートに、項目が6個くらい書き出してありケースごとにどの項目に該当するかをオートシェイプの丸をマウスで動かしてから印刷している。

2 対策　

入力セルに値を入れて、その値によってオートシェイプ図形を動かす。

3 （構想中）

sub

'どこのセルで判断するか入力。たとえばA1セル

dim cellAdd as string:cellAdd="A1"

dim Flag as long:Flag=activesheet.range(celladd)

dim x

dim y

select case Flag

case1

 x=

y=

case2

x=

y=

case3

x=

y=

case4

case else

end serect

オートシェイプ.top=x座標

オートシェイプ.left＝y座標

end sub