Excelの様式4-2（急傾斜）、4-7・4-8（土石流）で断面図が罫線を隠す問題をVBAで一括修正

砂防フロンティア管理型調書の様式4-2・4-7・4-8で断面図が罫線を隠す問題をVBAで一括修正

砂防フロンティア管理型調書の様式4-2・4-7・4-8で
断面図が罫線を隠す問題をVBAで一括修正

砂防フロンティアの「土砂災害警戒区域支援システム」から、区域調書を 管理型調書作成ツールに出力し、Excel で様式を出力すると、 次のような現象がよく起きます。

  • 急傾斜の様式4-2の断面図が、行列の罫線を隠してしまう
  • 土石流の様式4-7 / 4-8の断面図も、同様に罫線を隠してしまう
補足：
急傾斜は、QGIS出力に対応したものです。

毎シート・毎図形を手作業で調整するのはかなりの手間なので、 ここでは VBA マクロで一括修正する方法をまとめておきます。

1. 急傾斜：様式4-2の余分な図形削除＆断面図の縮小＋微調整

まずは急傾斜の様式4-2から。Excel 版／QGIS 版どちらから出力した管理型調書でも、 基本的な構造は同じなので、以下のマクロで共通に処理できます。

1-1. 何をやっているマクロか

  • 開いているすべてのブックを対象にする
  • シート名に「様式4-2」を含むシート（例：様式4-2, 様式4-2(2)…）をすべて処理
  • 図形のうち、Picture 5 / 7 / 14 / 16（図5 / 図7 / 図14 / 図16） を削除
  • 断面本体と思われるPicture 3 / Picture 12（図3 / 図12）は
    • 96％に縮小
    • そのあと1.5pt（0.75pt × 2回）だけ下に移動

これにより、断面図が罫線を完全に覆ってしまう状態を解消し、罫線が見えるように整えます。

1-2. VBAコード（様式4-2 用）

<pre><code>Sub 急傾斜様式42の図形削除と断面移動書式を整える()

    Dim wb As Workbook
    Dim ws As Worksheet
    Dim shp As Shape
    Dim nm As Variant

    Const SCALE_42 As Double = 0.96   '縮小率 96％
    Const MOVE_STEP As Single = 0.75  '自動記録と同じ移動量（これを2回）

    '★ 開いているすべてのブックを対象
    For Each wb In Application.Workbooks
        
        'マクロを入れているブックはスキップ
        If Not wb Is ThisWorkbook Then
        
            For Each ws In wb.Worksheets

                'シート名に「様式4-2」を含むもの全部（様式4-2, 様式4-2(2)…）
                If InStr(ws.Name, "様式4-2") > 0 Then

                    '―― ① 余分な枠などを削除（5 / 7 / 14 / 16 系） ――
                    For Each nm In Array( _
                            "Picture 5", "Picture5", "図 5", "図5", _
                            "Picture 7", "Picture7", "図 7", "図7", _
                            "Picture 14", "Picture14", "図 14", "図14", _
                            "Picture 16", "Picture16", "図 16", "図16")
                        On Error Resume Next
                        ws.Shapes(nm).Delete
                        On Error GoTo 0
                    Next nm

                    '―― ② グラフ本体を 96％縮小＋1.5pt 下へ ――
                    '    図3／図12 どちらでも対象
                    For Each nm In Array( _
                            "Picture 3", "Picture3", "図 3", "図3", _
                            "Picture 12", "Picture12", "図 12", "図12")

                        On Error Resume Next
                        Set shp = ws.Shapes(nm)
                        If Err.Number = 0 Then
                            With shp
                                .LockAspectRatio = msoTrue
                                .ScaleWidth SCALE_42, msoTrue, msoScaleFromTopLeft
                                .ScaleHeight SCALE_42, msoTrue, msoScaleFromTopLeft
                                .IncrementTop MOVE_STEP   '0.75 下へ
                                .IncrementTop MOVE_STEP   'もう一回 0.75 下へ（合計1.5）
                            End With
                        End If
                        Err.Clear
                        On Error GoTo 0

                    Next nm

                End If
            Next ws
        
        End If
    Next wb

    MsgBox "すべてのブックの様式4-2 系シートのグラフを 96％縮小＋少し下げました。"

End Sub</code></pre>
ポイント：
QGIS 版で出力した急傾斜の様式4-2でも、シート名・図形名のパターンが同じであれば、 そのままこのマクロで一括処理できます。もし図形名が異なる場合は、 配列内の "Picture 3" や "Picture 12" の部分を書き換えて対応してください。

2. 土石流：様式4-7・4-8 の断面図が罫線を隠すのを直す

2-1. 様式4-8（「4-8」を含むシート）

  • シート名に「4-8」を含むシートを対象
  • Picture 2 / Picture 4 を
    • 右に 2pt だけ移動
    • 98％に縮小（縦横比固定）

これで、断面図の右側の罫線が隠れず、かつレイアウトも大きく崩さずに調整できます。

2-2. 様式4-7（「4-7」を含むシート）

  • シート名に「4-7」を含むシートを対象
  • Picture 2 に対して、
    • 自動記録したトリミングパラメータをそのまま適用
    • 上下を少しカットし、罫線が見えるように調整

2-3. VBAコード（土石流様式4-7・4-8 用）

<pre><code>Sub 土石流_4_7_4_8_調整()

    Dim wb As Workbook
    Dim ws As Worksheet
    Dim shp As Shape
    Dim nm As Variant

    '◆今アクティブなブックを対象にする
    Set wb = ActiveWorkbook

    '◆4-8 用：移動量／縮小率（必要ならここを調整）
    Const MOVE_RIGHT As Single = 2     '右にずらす量［ポイント］
    Const SCALE_RATE As Double = 0.98  '縮小率 98％

    For Each ws In wb.Worksheets

        '========================
        ' ① 「4-8」を含むシート
        '========================
        If InStr(ws.Name, "4-8") > 0 Then

            'Picture 2 と Picture 4 を処理
            For Each nm In Array("Picture 2", "Picture 4")
                On Error Resume Next
                Set shp = ws.Shapes(nm)
                If Err.Number = 0 Then
                    With shp
                        '右に少し移動
                        .Left = .Left + MOVE_RIGHT
                        '縦横比を固定して 98% に縮小
                        .LockAspectRatio = msoTrue
                        .ScaleWidth SCALE_RATE, msoTrue, msoScaleFromTopLeft
                        .ScaleHeight SCALE_RATE, msoTrue, msoScaleFromTopLeft
                    End With
                End If
                Err.Clear
                On Error GoTo 0
            Next nm

        End If

        '========================
        ' ② 「4-7」を含むシート
        '    Picture 2 をトリミング
        '========================
        If InStr(ws.Name, "4-7") > 0 Then

            On Error Resume Next
            Set shp = ws.Shapes("Picture 2")
            If Err.Number = 0 Then
                With shp
                    '自動記録どおりの設定
                    .LockAspectRatio = msoFalse
                    .Top = .Top + 11.5                     'IncrementTop 11.5
                    .ScaleHeight 0.9749318801, msoFalse, msoScaleFromTopLeft

                    With .PictureFormat.Crop
                        .PictureWidth = 739
                        .PictureHeight = 458
                        .PictureOffsetX = 0
                        .PictureOffsetY = -5
                    End With
                End With
            End If
            Err.Clear
            On Error GoTo 0

        End If

    Next ws

    MsgBox "4-8シートの画像移動・縮小と、4-7シートの画像トリミングが完了しました。"

End Sub</code></pre>

3. マクロの使い方（共通手順）

  1. 調書の Excel ファイル（様式4-2, 4-7, 4-8 が入っているブック）を開く
    • 急傾斜（様式4-2）は、複数ブックをまとめて開いておくと一括処理できます。
  2. マクロ用の xlsm / PERSONAL.xlsb などを用意し、
    Alt + F11 で VBA エディタを開く
  3. 「標準モジュール」を挿入して、本記事の 2つのマクロを貼り付けて保存
  4. Excel に戻って Alt + F8 を押し、
    • 急傾斜 → 急傾斜様式42の図形削除と断面移動書式を整える
    • 土石流 → 土石流_4_7_4_8_調整
    をそれぞれ実行
注意：
縮小系のマクロは、同じブックに何度も実行するとそのたびに小さくなります。
原本をコピーしておくか、「縮小は1回だけ」＋「位置調整だけ別マクロで微調整」 という運用にしておくと安心です。

コメント

コメントを投稿

このブログの人気の投稿

石川県：土砂災害（特別）警戒区域＋ＣＳ立体図

石川県の土砂災害（特別）警戒区域まとめ 2025 年 5 月 16 日 時点 石川県砂防課が公表する 土砂災害（特別）警戒区域指定状況 （PDF）を整理し、市町別に 土石流・地すべり・急傾斜地崩壊 の警戒区域（イエロー）と 特別警戒区域（レッド）を集計しました。 市町 警戒区域 (イエロー) 特別警戒区域 (レッド) 合計 土石流 地すべり 急傾斜 土石流 地すべり 急傾斜 輪島市 374 217 375 313 0 372 966 金沢市 230 82 247 170 0 235 559 能登町 240 68 218 210 0 209 526 七尾市 192 45 201 165 0 201 438 珠洲市 91 76 164 83 0 163 331 小松市 181 13 66 162 0 64 260 白山市 139 20 91 73 0 84 250 志賀町 130 15 100 106 0 99 245 穴水町 93 12 115 79 0 113 220 加賀市 78 21 101 65 0 96 200 津幡町 78 48 57 56 0 56 183 中能登町 130 4 36 99 0 35 170 能美市 64 1 41 59 0 40 106 宝達志水町 33 30 53 26 0 52 116 かほく市 12 2 30 5 0 30 44 川北町 0 0 0 0 0 0 0 野々市市 0 0 0 0 0 0 0 内灘町 0 0 5 0 0 5 5 合計 2065 654 1900 1671 0 1854 4619 ＣＳ立体図＋土砂災害警戒区域 MAP を開く 関連資料・データ ▸ 土砂災害（特別）警戒区域指定状況 PDF（R7.5.16） ▸ 石川県土砂災害（特別）警戒区域図 オープンデータ（SHP・GeoJSON 等） ▸ CS 立体図を使った 地形判読マニュアル（林野庁） ハザードマップの入手方法 お住まいの 市役所・町役場の防災担当窓口 や自...
続きを読む

日本でよく使う EPSG コード 一覧

1. 経緯度（地理）座標系 区分 名称 EPSG 主な用途・備考 世界標準（地理） WGS 84（緯度・経度） 4326 GNSS/GPS の測位やデータ交換で使用。単位は「度」。 Web地図（投影） WGS 84 / Pseudo-Mercator（Web Mercator） 3857 Google/OSM/国土地理院タイルなどの 表示 に使用。単位は「メートル」。別名：Popular Visualization / Google Mercator。 日本最新 JGD2011（緯度・経度） 6668 測地成果2011。公共測量の基準。平面直角座標系は下表参照。 過去の全国基準 JGD2000（緯度・経度） 4612 2002–2011 年に使用。JGD2011 と混在時は変換推奨。 旧日本測地系 Tokyo Datum 4301 1940年代〜2002年まで使用。WGS84とは数百mのズレあり。 2. 平面直角座標系（Gauss–Krüger 投影） 系 (ローマ数字) 系 (数字) 中央経線 JGD2011 EPSG JGD2000 EPSG 適用都道府県（概要） I 1 129°30′E 6669 2443 長崎、鹿児島西部 II 2 131°00′E 6670 2444 福岡・佐賀・熊本・大分・宮崎、鹿児島...
続きを読む

設計定数を求めるための代表N値について

代表 N 値（設計用採用値）の決め方 ― 要点まとめ 1．実務でよく尋ねられる「出典」の悩み（改訂） 発注者から「この整理手法の出典はどこか」と問われることが多い一方で、道路土工・道路橋示方書・地盤調査法など主要文献には 「平均値±1/2σで採用する」と明記した箇所はほとんど見当たりません。 しかし、 『報告書作成マニュアル［土質編］』（社団法人 全国地質調査業協会連合会） には、 ばらつきデータから設計用値を定める 三手法 （ a： 平均、 b： 最小／最大、 c： 平均と標準偏差による補正）が明記されています。 特に c) として次式の例が示され、 設計値 ＝ 平均値 − (1/2) × 標準偏差 （平均値を標準偏差で補正して設計値とする） と記載されています（第2章 2.7.3、p.74）。 したがって、本稿で用いる 「平均 − 1/2σ」 という整理は単なる経験則ではなく、 公的マニュアルに裏づけのある実務手法 です。 なお同マニュアルは、標準偏差の重み係数（1/2 など）の選び方には議論があること、すなわち k の選定はデータ量・ばらつき・重要度等に応じて調整する余地があることも併記しています。 出典： 『報告書作成マニュアル［土質編］』第2章 2.7.3「設計用土質定数の設定方法」p.74（a〜c の三手法と「平均 − (1/2) 標準偏差」の例示） 2．建築基礎構造設計規準・同解説（1974）の記述 地盤の場合、土質試験などによって得られる諸数値にかなりのばらつきがあるのがむしろ普通であり、このようにばらつきのある測定値の取り扱いについては、ばらつきの原因とその程度、基礎底面と各試料採取位置との相対的な関係など、複雑な要素が絡むため一概には言えない。しかし通常、1地点で同一土質層について得られた測定値は、その平均値を用いて差し支えないとする。そのうえで、とくにばらつきが著しい場合などは、平均値よりさらに安全側を見込んで 設計用採用値 ＝ （平均値） ± （標準偏差）／2 とする。ここで複号 ± は、算定結果が安全側となる符号をとる...
続きを読む