[[20191021113636]]　『数値から図形を変形させたい』（はるこ）　ページの最後に飛ぶ

『数値から図形を変形させたい』（はるこ）

あまり詳しくない者ですが、よろしくお願いいたします。
エクセルで、決められたところに数値を入力すると、その数値に合わせて
図形が変形する仕組みが作れるものなのか教えてください。

例えば縦5cm、横10cmと入力するフォームを作っておいて、値に応じた
形の図形が表示される・・・
縦7cmに変えたら図形も変形される・・・
作りたい形はブロック矢印や三角形などです。
こんな都合の良い仕組みはやっぱり作れないでしょうか。
もしご存知の方がいたら教えていただけるとありがたいです。
よろしくお願いいたします

＜使用 Excel：Excel2013、使用 OS：unknown ＞

 それは、図形を挿入した後に書式設定でサイズを指定するのと
 どう違うんですか？
（コナミ） 2019/10/21(月) 11:52

返信ありがとうございます！量が大量にあります。今一つ一つサイズを合わせているのですが、結構面倒で・・・初めからその大きさの図形が表示されたら良いなと思ったのですが・・・
（はるこ） 2019/10/21(月) 12:06

 サイズを合わせたい図形を全部選択してから、変更すれば一括でできますけどね。

 因みに図形を選択して(複数可)、Ctrlを押しながら、図形をドラッグして離せば同じのができます。

（BJ） 2019/10/21(月) 12:17

 こんにちは　＾＾　ちゃちゃっと　書いてみました
何かの足しにでも？。。。ゴミ箱っぽいですけど　m(_ _)m

 Option Explicit
Sub OneInstance01()
    Dim Var
    Dim Tate#, Yoko#
    Tate = 100: Yoko = 200
    With Worksheets("Sheet1")
        For Each Var In .Shapes
            With Var
                .Width = Yoko
                .Height = Tate
            End With
        Next
    End With
End Sub
（隠居じーさん） 2019/10/21(月) 12:21

 他にサイズを変更したくないオブジェクトがないなら

 Ctrl+G→セル選択→オブジェクト→OK

 でシートにある図形が全て選択できますよ。
（コナミ） 2019/10/21(月) 12:21

 おお！知りませんでした！
これだと（コナミさんの案）　いくら数が多くても簡単ですね　＾＾ｖ。。。(#^^#)
m(_ _)mm(__)mm(__)m
（隠居じーさん） 2019/10/21(月) 12:34

相談とはずれますが、これは選択したセルのサイズに合わせた右矢印や二等辺三角形がつくれます。
大きさを変えたいときはセルのサイズを変えてまた新しいのを作れば良い、という雑な考えですが
一つの参考として。

 Sub 右矢印()
  With Selection
   ActiveSheet.Shapes.AddShape(msoShapeRightArrow, .Left, .Top, .Width, .Height).Select
  End With
 End Sub
 Sub 二等辺三角形()
  With Selection
   ActiveSheet.Shapes.AddShape(msoShapeIsoscelesTriangle, .Left, .Top, .Width, .Height).Select
  End With
 End Sub

（べん） 2019/10/21(月) 12:38

皆様有難うございます。図形は全部違う大きさなので厄介なのです。
皆様のお答えを参考にまずはいろいろやってみます！
（はるこ） 2019/10/21(月) 13:21

こんにちは　＾＾
まず、面倒ならＶＢＡで全ての図形の名前をどこかのセルに書き出して、
その隣のセルに変えたい大きさを書込み、対応表（図形マスタみたいなの）
を作り、それを配列にでも取り込んで、順に設定するのも一案かもしれま
せんね　＾＾；。。。m(_ _)m

（隠居じーさん） 2019/10/21(月) 13:39

コメント返信：

[ 一覧(最新更新順) ]

[[20191021113636]] 『数値から図形を変形させたい』（はるこ） ページの最後に飛ぶ

[[20191021113636]]　『数値から図形を変形させたい』（はるこ）　ページの最後に飛ぶ