2024.05.28本サイトで公開している「VAコネクタ」は、エクセルのセルの間にカギ線(図形)を引くマクロです。これを作成する際に一番手こずったのが、「カギ線の方向」の制御でした。開始セル(rngBegin)の右端から終了セル(rngEnd)の左端までのカギ線の入力は、次のコードで実現できます。EndY)縦方向のカギ線の場合こちらも、次のコードで実現できるはずです。Sub問題点ところが、縦方向にカギ線を追加したいのに、横方向になってしまいます。なって欲しいのに...こうなっちゃうのです。手動でカギ線を追加する場合は縦横の比率によってカギ線の方向が変化しますが、VBAで追加する場合は必ず横方向になってしまうようです。対策その1(反転・回転)次の手順で図形の反転・回転を行うことで、縦方向にカギ線を追加できます。高さと幅を入れ替えた大きさのカギ線を、回転させてもウィンドウをはみ出ない位置に追加する。カギ線を上下反転させる。カギ線を90°回転させる。カギ線の位置を修正する。BeginY)'高さと幅を入れ替えたカギ線を追加する'加えて退避距離分だけずらし、回転させたときにウィンドウをはみ出さないようにします。90'カギ線の位置を修正する'加えて退避距離分のズレをもとに戻します。EscapeLength対策その2(縮小)次の手順で図形の高さを縮小することでも縦方向のカギ線を追加できます。(右下方向の場合は左右を入れ替えて)縦幅を横幅の2倍の長さにした直線を追加するカギ線に変更する。右下方向の場合は、カギ線を上下反転させ、90°回転させる。カギ線の高さを修正する。本記事の手法を用いた「VAコネクタ」(対策その1を使用したもの)は、こちらで公開しています。家系図の線の入力を簡単に行うためのマクロです。2つのセル範囲を選択してからボタンを押すとコネクタが自動的に追加できます。AM「対策」を「行高さを一時的に変更する」から「図形を反転・回転させる」に変更しました。コメントをキャンセルメールアドレスが公開されることはありません。※サイト次回のコメントで使用するためブラウザーに自分の名前、メールアドレス、サイトを保存する。ΔホームコラムVBAアセットを応援VBAアセットの活動を応援していただける方からの協賛金(1口100円)を受け付けています。こちらのボタンを押していただくとPayPalを使って入金できます。1962年生まれ、某法律事務所でアルバイトをしている元陸上自衛官です。プログラマとして働いた経験はありませんが、約30年前から自分自身の業務にVBAを活用してきました。Standard)を取得しています。本サイトの更新などの情報は、Xで発信しています。Reserved.タイトルとURLをコピーしました。