• ベストアンサー

セル同士をカギ双方向矢印コネクタで

imogasiの回答

  • ベストアンサー
  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.3

エクセルのセルはオブジェクトで、そのセルには連結線的なプロパティやメソッドはありません。 だから「操作」では出来ないでしょう。したがってVBAでもできません。 ーー ただし似たような見た目のことはできそうです。下記。 ーー 標準モジュールに Sub test02() Call test01("c3", "f3") Call test01("G3", "I3") Call test01("f5", "H6") End Sub 'ーー Sub test01(r1, r2) Set f = Worksheets("Sheet1").Range(r1) fpy = f.Top + f.Height / 2 fpx = f.Left + f.Width Set t = Worksheets("Sheet1").Range(r2) tpy = t.Top + t.Height / 2 tpx = t.Left '-- With ActiveSheet.Shapes.AddLine(fpx, fpy, tpx, tpy).Line .Weight = 5 '太さ .ForeColor.RGB = RGB(255, 0, 0) '赤色 .EndArrowheadStyle = msoArrowheadTriangle '終点を矢印 End With End Sub を作ります。そして test02を実行します。 3か所の線が引かれます。C3セルからF3セル、G3セルからI3セル、F5セルからH6セルに。 2セルの順序を逆転すると、逆向き的に見えるでしょう。 セルの組み合わせを増やせば(VBAのCall test01("f5", "H6")のような行を増やせば)、箇所を増やすことは可能です。 ーー しかし欠点は、指定したセルの幅やセルの高さを変える、それらより以左部のセルのそれらを変えると、連動してうまくAjustしてくれないケースがあります。 これに対処するVBAもあるかもしれませんが、今までやったことはないので現在の小生には書けません。

ekekojr
質問者

お礼

ありがとうございます! すごいです!

関連するQ&A

  • Word2007で、コネクタ矢印じゃなく普通の矢印を書きたい

    Word2007を使用しています。 図形の上に直線を描画しようと思ったのですが、どうやらコネクタ機能が自動的にはたらくようで、勝手に別の図形にくっついてしまい、四角形の上に矢印を引くことができません。 どうすれば、コネクタ矢印じゃなくて、普通の矢印を描くことができるのでしょうか? 参考になるURLがあれば、合わせて教えてもらえるとうれしいです。 よろしくお願いします。

  • マクロの登録を使って、オートシェイプどうしをカギ線矢印コネクタでつなぐ

    今年入社した新人で、コンピュータ系の会社に勤めてます。 プログラミング経験は全くないので細かく教えていただきたいです。 エクセルのマクロを使って、以下のような処理をしたいと 思っています。 エクセルシート上に長方形のオートシェイプが何個かあります。 (バーのような細いものです。) それをクリックすると「他の図形とコネクタ線でつなぎますか?」と いう質問がでて、「はい」を選択します。 そして他のつなぎたいオートシェイプをクリックすると、 その元の図形の右端とつなぎたい図形の左端がカギ線矢印コネクタでつながる、といったマクロを作りたいです。 一応msgboxまではできていますが、つなぐための文がわかりません。 Sub AutoShape_Connect() If MsgBox ("他の図形とコネクタ線でつなぎますか?" ,vbYesNo + vbQuestion = vbYes then うまく伝わっていますでしょうか? ぜひよろしくお願いします。

  • Wordで、矢印の方向を反対にするには

    Word2007で、挿入、図形で矢印付きの直線を一旦確定後、その方向を変える簡単な方法はありませんか? 図形を選び片側の緑の丸をグルーと回し移動すれば可能です。しかしこれでは位置がずれます。位置をずらさず、方向だけを変える簡単な方法です。よろしくお願いします。

  • EXCELの図形でカギ線コネクタについて

    EXCELですが、例えば四角の図形だと4辺それぞれに1つずつのカギ線コネクタがありますが、1辺に複数のコネクタを作るようになりませんか?

  • Power Point の直線が双方向矢印になる

    Power Point 2007を使用しているものです。 挿入の図形で「直線」を挿入しようとすると常に[双方向矢印]で挿入されてしまいます。 何か解決方法を知っておられる方がおられましたらよろしくお願いします。

  • 【エクセル】矢印を押してもセルがずれなくなりました。

    【エクセル】矢印を押してもセルがずれなくなりました。 うまく説明できなくてすみませんが。。。 キーボードの矢印を押してもアクティブセルがずれないというか 表ごと全てというかシートが矢印方向にずれていくのです。 入力に時間がかかって大変なのです。自分でも何をしたのかさっぱり分からないのです。 どうぞ宜しくお願いします。

  • ワードでカギ線コネクタの片方の線だけを短かくしたい

    ワードで 図を描いているのですが 部屋の簡単な見取り図のようなものなのです…… ほぼ 長方形と半円系の図形でできるような感じのものです ワードの図形で作りたいのですが カギ線コネクタを使っていて、ちょっと分からないことが……  カギ線コネクタの片方の線だけを短くすることは可能でしょうか? もし可能なら その方法を教えてください VISTAでOFFICE2007です 社長に言われて そんなに詳しく書く必要はないと言われて いるので ラフな感じの仕上がりで大丈夫だとおもいます お知恵を拝借できれば助かります また このような場合エクセルで やった方がよいのでしょうか? 宜しくお願いいたします

  • Excel 2010 コネクタの接続が切れる

    Excel 2010 の体験版(OFFICE 2010)を試用し、購入を検討しています。 カギ付きコネクタを配置機能で整列すると図形との接続が切れてしまいます。 ■実施内容■ 2つの図形を縦に配置し、その図形をコネクタで接続します。 2つの図形とコネクタを範囲選択し、配置で左右中央揃えを選択します。 すると、2つの図形の横位置は一列に並びますがコネクタの位置も移動してしまい、 コネクタの接続の状態が解除されてしまいます。 2つの図形のみ選択し、左右中央揃えを選択した場合、 コネクタの位置がずれることなく接続が切れることもありません。 同じ事をExcel2003で行った場合はどちらも図形は一列に並び、 コネクタの接続が切れることはありませんでした。 ■質問■ ・これは体験版のみで発生する現象でしょうか?製品版では発生しませんか? ・この挙動が仕様だという場合、現象を回避する方法はありますか? Excelでフローチャートを作成しようとしており、 コネクタを避けつつ図形のみ選ぶという作業は手間なため行いたくありません。 よろしくお願いします。

  • 両方向矢印のみ選択するマクロってありますか?

    マクロの初心者です。Excel2003を使用しています。 1枚のシートの中に多くの(100本以上)矢印があります。 矢印は様々な方向を向いています。両方向矢印は残して、片方向を向いている矢印は消したいのですが、できあがったものだと全ての矢印が消えてしまいました。 できあがったマクロは他のシートにも使用したいと思っています。他のシートにも矢印はありますが、本数はそれぞれ違いますので、Line番号を指定することができません。 両方向矢印のみ残したいので、先にそれを選択してグループ化してから、線を削除すれば、矢印消えるのではと思ったのですが、シート上にある全ての両方向矢印を選択する方法がわかりません。両方向矢印のみ選択して、グループ化する方法があればご教授下さい。 他の方法でもかまいません。よろしくお願い致します。

  • ワード2007で普通の矢印を引きたい

    こんにちは。早速質問させていただきます。 ワードの描画キャンパスで矢印を引く時なのですが、普通に矢印を引きたいのに図形のところにくっついてしまって思い通りにできません。(コネクタって機能が働いているみたいです) コネクタを無視して自由に線を引くにはどのようにすればよいのでしょうか。お願いします。