| |
▼aka さん：
おはようございます
まず、円と線の中間に矢印を引く操作をマクロ記録してみてください。
（もし、2007であれば、記録はされないかもしれません。
また、できあがるコードは2003と2010では異なりますが）
できあがったコードに数字が４つ、カンマでくぎられて記載されているところがあるはずです。
これら４つは、先頭から BeginX,BeginY,EndX,EndY の順番です。
生成されるコードのメソッドをクリックしてＦ１を押すとヘルプがでてきますから
一読いただきたいのですが
BeginX : 始点の横位置 つまり 円の右端（円の左端に円の幅をたしたもの）
BeginY : 始点の縦位置 つまり、円の上端に円の高さの半分をたしたもの
EndX : 終点の横位置 つまり、線の左端
EndY : 終点の縦位置 つまり、線の上端に線の高さの半分をたしたもの
ですので、それぞれの値を取得して、この４つを指定するとコード完成です。
円であれ線であれ、
ActiveSheet.Shapes("図の名前").Left
ActiveSheet.Shapes("図の名前").Width
ActiveSheet.Shapes("図の名前").Top
ActiveSheet.Shapes("図の名前").Height
こんなキーワードをベースに考えて工夫してみませんか？
|
|
UO3
- 12/9/16(日) 8:05 -
