すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 福井県地図描画マクロ()     '地理データファイル名     Const MAPDATFN = "N03-11A-2K_18.txt"     '     '国土数値情報ダウンロードサイトより     '    'TOP> 国土数値情報>行政界・海岸線データ     '「N03-11A-18-01.0a.zip」を解凍するとある。     'それを、この文書ファイルと同じフォルダーに置く。     '     'なお、(18）は福井県で、他の都道府県の場合は、     'その番号が違う。     '     Const MAPDTMAX = 20000　　      '最大データ数     Const MAPDRATE = 250　　　       '描画倍率     '     Const MAPDLEFT = 80　　　　       '描画左上位置(X)     Const MAPDTOPP = 70 　　　　　　'　　           (Y)     '     Const MAPDLNCL = 9109504　　　'線の色(紺)     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer, Kp As Integer     Dim Lp As Long, Mp As Long, Np As