[[20150708161613]]　『オートシェイプで書いた座標を取り出す』（ファイブイレブン）　ページの最後に飛ぶ

『オートシェイプで書いた座標を取り出す』（ファイブイレブン）

挿入→図形→フリーフォームで書いた多角形があります。
この座標を頂点全て（5角形だとしたら5ヶ所）取得したいです。
最終的には、地番図をなぞり、面積を計算することを目的にしています。

A1セルに、多角形の任意の頂点の１つのＸ座標
B1セルに、A1で選んだ頂点のＹ座標
A2セルに、多角形の任意の頂点の１つのＸ座標
B2セルに、A2で選んだ頂点のＹ座標
････を頂点の数繰り返す。

　　　　　　Ａ　　　Ｂ
１行目　Ｘ1座標　Ｙ1座標
２行目　Ｘ2座標　Ｙ2座標
３行目　Ｘ3座標　Ｙ3座標
４行目　Ｘ4座標　Ｙ4座標
５行目　Ｘ5座標　Ｙ5座標
････

助けてほしいです。お願いします。

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

他のフリーソフトＪＷＷなんかでできますが。面積もでます。
（Ｈａｒａ） 2015/07/08(水) 16:38

 Sub test()
    Dim S As Shape
    Dim i As Long
    Dim j As Long

    For i = 1 To ActiveSheet.Shapes.Count
        Set S = ActiveSheet.Shapes(i)
        Cells(1, i * 2 - 1).Value = S.Name

        For j = 1 To S.Nodes.Count
            With S.Nodes(j)
                Cells(j + 1, i * 2 - 1).Value = .Points(1, 1)
                Cells(j + 1, i * 2).Value = .Points(1, 2)
            End With
        Next j
    Next i
 End Sub

面積は…、うーん、マウスドラッグ描画もできますし、難しいですね。頑張ってください。
（???） 2015/07/08(水) 17:28

 「多角形　面積」
 で検索したら参考ＨＰはたくさん見つかりますね。
 それをどうエクセルに落とし込むか、は別問題ですが・・・。

（カリーニン） 2015/07/08(水) 19:27

???さんありがとうございました。座標を取り出せました。
カリーニンさんありがとうございました。面積計算は座標から取り出せました。

地図のスケールやポイントの換算をすれば目標となる数値が出ました。
久しぶりに質問しましたが、いつも早い回答助かります。
（ファイブイレブン） 2015/07/09(木) 09:11

コメント返信：

[ 一覧(最新更新順) ]

[[20150708161613]] 『オートシェイプで書いた座標を取り出す』（ファイブイレブン） ページの最後に飛ぶ

[[20150708161613]]　『オートシェイプで書いた座標を取り出す』（ファイブイレブン）　ページの最後に飛ぶ