[[20140601123336]]　『頂点の編集』（tateyoko）　ページの最後に飛ぶ

『頂点の編集』（tateyoko）

フリーフォームで図を描いたあと
頂点の編集をよくするのですが、
微調整がなかなかマウスで操作が難しくて
簡単に上に少しだけとか、横に少し移動という方法は無いでしょうか？

＜使用 Excel：Excel2013、使用 OS：Windows8 ＞

 頂点の編集 というのは図形の変形でしょうか、移動でしょうか。
 移動であれば図形を選択でカーソルキーの移動でもうまくいかないでしょうか。

 変形であれば、EXCEL のシート表示を400% にして操作してみてどうでしょうか。
（Mook） 2014/06/01(日) 21:38

 VBAでの例です。

 2007「Excel 開発者用リファレンス」からの引用です。
 ---------------------------
 ShapeNode.Points プロパティ
 指定された節点の位置を座標値 (座標値 : 点の x 座標と y 座標を表す値のペア。座標の値は多くの点の値を含む 2 次元の配列に格納されます。)として返します。値の取得のみ可能です。バリアント型 (Variant) の値を使用します。
 構文

 式.Points

 式   ShapeNode オブジェクトを返すオブジェクト式を指定します。

 戻り値
 バリアント型 (Variant)

 備考

 このプロパティは値の取得のみ可能です。このプロパティに値を設定するには、SetPosition メソッドを使用します。

 使用例

 次の使用例は、myDocument の図形 3 の節点 2 を 200 ポイント右、300 ポイント下に移動します。図形 3 はフリーフォームである必要があります。

 Visual Basic for Applications 
 Set myDocument = Worksheets(1)
 With myDocument.Shapes(3).Nodes
     pointsArray = .Item(2).Points
     currXvalue = pointsArray(1, 1)
     currYvalue = pointsArray(1, 2)
     .SetPosition 2, currXvalue + 200, currYvalue + 300
 End With 
 ------------------------

 currXvalue
 currYvalue
 はそれぞれ現在の2番目の頂点のX座標、Y座標を取得しています。

 .SetPosition 2, currXvalue + 200, currYvalue + 300

 で頂点をX方向に200、Y方向に300移動しています。
（カリーニン） 2014/06/01(日) 22:45

表示を拡大してみるのも有効。
（???） 2014/06/02(月) 08:42

ご回答ありがとうございます。
頂点の微調整をするときは、極力拡大400%などで
やっておりますが、やはり、それしかないのですね。

VBAを使うのもちょっと辛いので、
現状の方法で進めます。

ありがとうございました。

（tateyoko）2014/06/03(火) 00:05

図形の調整はパワポで行なって
終わったらExcelにコピペする方法は如何でしょう
パワポなら数値で位置指定や図形の整列操作もできますし
（すし） 2014/06/03(火) 03:01

コメント返信：

[ 一覧(最新更新順) ]

[[20140601123336]] 『頂点の編集』（tateyoko） ページの最後に飛ぶ

[[20140601123336]]　『頂点の編集』（tateyoko）　ページの最後に飛ぶ