• ベストアンサー

セルの値を参照した矢印の自動入力方法

エクセル2000とXPを使用しております。 セルAにX方向の長さ セルBにY方向の長さ これらを入力し、グラフ又はオートシェイプ等でセルABの値を反映させた矢印をシート上に引きたいのですが 具体的な方法が思いつかず頭を抱えております。 表現が上手くできないのですが、エクセル上にてベクトル図のようなものを再現したいと考えています。 どなたか詳しい方がいらっしゃいましたら、ご回答宜しくお願い致します。

質問者が選んだベストアンサー

  • ベストアンサー
noname#123709
noname#123709
回答No.1

こういうことでしょうか? Sub test() 'X方向 ActiveSheet.Shapes.AddLine(100, Range("B2").Value + 100, Range("B1").Value + 100, Range("B2").Value + 100).Select Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium Selection.ShapeRange.Flip msoFlipVertical 'Y方向 ActiveSheet.Shapes.AddLine(100, 100, 100, Range("B2").Value + 100).Select Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium Selection.ShapeRange.Flip msoFlipVertical 'ベクトル ActiveSheet.Shapes.AddLine(100, 100, Range("B1").Value + 100, Range("B2").Value + 100).Select Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium Selection.ShapeRange.Flip msoFlipVertical End Sub

mindatg
質問者

お礼

素早いご回答ありがとうございます。 なんとか矢印を描くことができました シート上の座標を調べ、図面を作ってみます

関連するQ&A

  • オートシェイプに他のセルの値をリンクさせたい

    オートシェイプの図たとえば四角形にテキストを追加して、シートの特定セルの値を反映させたいのですが 可能でしょうか? 可能であればその方法をご教示ください

  • EXCEL:オートシェイプの値をセルに表示

    EXCELのオートシェイプの値を他のセルに反映させる事は可能でしょうか? セルの値をオートシェイプに反映する方法は知っているのですが、 逆の方法がわかりません。 どなたかご教授願います。

  • エクセルグラフへのテキストの一体化

    エクセル2000でグラフを作成し、グラフのシート上にテキストでコメントやオートシェイプで矢印などの図を追加しました。 このグラフシートをコピーしてワード文書にペーストすると、追加したテキストやオートシェイプの図がペーストされずに、グラフシートだけがペーストされてしまいます。 どのように設定すれば、テキストやオートシェイプもグラフシートと一体化されてペーストできるでしょうか。

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

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

  • エクセルのオートシェイプで作成した図をエクセルのセルに貼り付けたい

    ワードにエクセルで作成したグラフや図を貼り付ける方法はわかるのですが。エクセルのオートシェイプで作成した図をエクセルシートに図が入るように結合した大きなセルに貼り付けたいのですがどのようにしたらいいのでしょうか?

  • エクセル グラフにセルの値を参照した目盛を入れたい

    エクセル(Microsoft Office Excel 2007)の(折れ線)グラフで 縦軸・横軸それぞれに、 任意のセルを参照した線(目盛)をいれたいのですが、できるでしょうか。 イメージを添付しましたが、 任意のセルの値<7>を反映した横軸目盛と 任意のセルの値<1月4日>を反映した縦軸目盛をいれたいです。 この任意のセルの値が毎回変わるので、参照でないとダメなのですがいかがでしょうか。 お分かりになる方がいましたら、教えてください。

  • EXCEL マクロの定数にセルの値を参照できますか

    EXCELの複数グラフシートから、PPへグラフの貼り付けを行いたいです。貼り付け形式がグラフにより、xlBitmapとxlPictureを別ける必要があるので、EXCELにグラフシート名と貼り付け形式(xlBitmapとxlPicture)の一覧を作成し参照させたいのですが、うまくFormat形式をセルから参照させることができません。定数は参照できないのでしょうか? Selection.CopyPicture Format:=xlBitmapのxlBitmapの部分にセルの値を参照させたい。

  • [Excel] 値のない範囲を参照するグラフを値がある範囲を参照するようにする

    お答え願います。 Excelのグラフで何も値が入力されていないセルを参照する系列を挿入したとします。 この際、凡例は表示されますが、グラフ上に線は表示されないのはわかります。 ここから値が入力されているセルに参照先を変えるには、 [グラフ上で右クリック]→[元のデータ]→[系列]→Yの値の参照セル範囲を変更するとできるんですが、これをマクロで行う方法はありますか? 試したところ、Yの値を変えるにはSeriesCollection(x)をアクティブにしないといけない気がするんですが、グラフ上に線が表示されていないせいか、エラーになってしまいます。 大雑把な質問ですが、足りない点がありましたら補足しますので、どうかご教授願います。

  • 関数を入力したセルがグラフに表示されない方法

    エクセルのグラフについて質問です。 A.Bの2枚のシートがあります。 シートBには、一部、IF関数を入力したセルが含まれています。 このセルを含め、シートB上の複数行のデータをグラフ化したいのですが、以下のような誤表示がされてしまいます。 ○問題点 シートBの数値が入っているセル(入力した関数の計算の結果(数字)が表示されているもの)は、グラフ上に正確に表示される。 しかし、上記IF関数が入力されているセル(表示部は#VALUE!となっている)を反映するグラフの該当部分は、数字が入っていないにもかからず、グラフから見切れてしまう。 ○解決したい点 #VALUE!表示のセルのデータは、グラフにも反映させたくない。 何とか、結果が出ているセルのみをグラフに反映させ、数式が入っている状態のセルの内容はグラフ上は非表示にする、ということはできないでしょうか? ご存知の方、よろしくお願いします。

  • エクセルからオートシェイプのみ一括削除するには

    エクセルシートにオートシェイプ(矢印など)を貼り付けたシートを作っていますが、何度もシートをコピペで修正してましたら、このオートシェイプ(矢印など)が、何重にも貼り付けられてしまい、膨大な容量になってしまいました。 ひどいところでは、20重くらいになっており、その矢印自体が1500個くらいありひとつずつ消してると1万個を超えることになり気が遠くなります。 シートの文字や、計算式、書式設定、セル巾などは消さずにオートシェイプのみ一括削除したいのですが、いい方法はありませんか。

専門家に質問してみよう