
エクセルのオートシェイプについてです。エクセル2007を使ってます。
それで、セルに数値を入れることでオートシェイプのサイズ変更(幅と高さのサイズ変更)をしたいと思っています。
VBAやマクロは、素人です、すみません。
シート1に、プルダウンリスト(図形の選択をするもの)と、リンク用の図形(マルとか四角とか三角とかの変更前のベースとなる図形)が準備してあります。
シート2に、リンク貼り付けで切り替え表示できる図形(シート1でプルダウンリストから選択した図形の名前にシート2に置いてある図形の表示が連動)が10個用意してあります。
シート2で、図形のある場所は、1個目はF2-G7、2個目はI2-J7、3個目はL2-M7、4個目はO2-P7、5個目はR2-S7、6個目はF9-G14、7個目はI9-J14、8個目はL9-M14、9個目はO9-P14、10個目はR9-S14、に置いてあります。
縦と横の数値(幅と高さのサイズについて)は、
縦はB2からB12の10個のセルにそれぞれ入れたいです。
横はC2からC12の10個のセルにそれぞれ入れたいです。
どうすれば、解決できるのでしょうか?
助けてください。宜しくお願いします。
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
質問内容に、誤解のようなものがあると思います。
「のようなもの」というのは、VBAやマクロが素人ということではなく、それ自体、何もご存知がないままに質問して、マクロでどうにかならないか、とおっしゃっているように感じられます。それでは、解決しようがないのです。もちろん、記録マクロではどうにもならない壁がありますが、むしろ、ご質問者さんは、少しはマクロのことは、記録マクロぐらいでも取って、あれがこうなり、これがああなりと、想定していれば、もう少し違った質問になったと思うのです。
こちらとしては、大雑把な輪郭だけで、あとのリクエストは無視するしかありません。それでは無理だからです。
マクロというものはどういうものか、それを見せるだけのためです。
>オートシェイプのサイズをセルの値と連動させるような機能
これ自体は、オートシェイプは、セルの位置に結びつけるというのは、VBAでは常識的です。
http://officetanaka.net/excel/function/tips/tips …
この操作を思い出すまでは時間がかかりましたが、この話と、VBAは、まったく別というぐらい違います。
そもそも、リンク貼り付けを持ち込んで、どうこうするというなら、VBAの範疇ではありません。そのオブジェクトを処理するというのは、ステージが違います。
>エクセルでのオートシェイプのサイズ変更方法について質問。
これ自体は簡単です。
>縦はB2からB12の10個のセルにそれぞれ入れたいです。
>横はC2からC12の10個のセルにそれぞれ入れたいです。
しかし、図形は、それだけでは不足しています。
以下は、質問者さんの話に沿いながら、こちらの創作です。
参考にしてみてください。
マクロで操作するというのは、おそらくは、イメージとは雲泥の差があるのかもしれません。図形の拡大と縮小はトグルになっていますから、拡大したものをもう一度実行すれば、元に戻ります。
最初に、図形の寸法を記述します。
フォームコントロールのコンボボックスは、Sheet1 にあり、図形は、Sheet2 にあるということになっています。
なお、Magni (倍率)の1.5 つまり、150%が最高ですから、それ以上は大きくさせないでください。
''標準モジュール
'//
Sub MeasureShapes()
'20行目から書き出します。
''図形の位置とサイズの記録
Dim shp As Shape
Dim i As Long
Dim j As Long
With Worksheets("Sheet2")
j = 20
.Cells(j, 1).Resize(, 6).Value = Array("Name", "ADR", "Top", "Left", "Height", "Width")
j = 21
On Error Resume Next
For Each shp In .Shapes
.Cells(j, 1).Value = shp.Name
.Cells(j, 2).Value = shp.TopLeftCell.Address(0, 0)
.Cells(j, 3).Value = Int(shp.Top * 100 + 0.5) / 100
.Cells(j, 4).Value = Int(shp.Left * 100 + 0.5) / 100
.Cells(j, 5).Value = Int(shp.Height * 100 + 0.5) / 100
.Cells(j, 6).Value = Int(shp.Width * 100 + 0.5) / 100
j = j + 1
Next
On Error GoTo 0
End With
End Sub
Sub ドロップ1_Change()
'フォームコントロールのコンボ・ボックス
Dim idx As Integer
With Worksheets("Sheet1")
idx = .DropDowns(1).Value
Call EnlargeShape(idx)
.DropDowns(1).ListIndex = 0
End With
End Sub
Sub EnlargeShape(ByVal idx As Integer)
'図形の拡縮
Dim mSizes(1 To 5)
Dim i As Long, j As Long
Dim Magni As Double
Magni = 1.5 '倍率 *100% (max)
i = idx
With Worksheets("Sheet2")
If .Cells(20 + i, 1 + j).Value = "" Then
MsgBox "図形の測定がされていません。", vbExclamation
Exit Sub
End If
For j = 1 To 5
mSizes(j) = .Cells(20 + i, 1 + j).Value
Next
With .Shapes(idx)
If Abs(.Height - mSizes(4)) < 5 Then
.Top = mSizes(2) '起点
.Left = mSizes(3) '起点
.DrawingObject.ShapeRange.LockAspectRatio = msoTrue
.DrawingObject.ShapeRange.ScaleWidth Magni, msoFalse, msoScaleFromTopLeft
Else
.Top = mSizes(2) '起点
.Left = mSizes(3) '起点
.Height = mSizes(4)
.Width = mSizes(5)
End If
End With
End With
End Sub
左がSheet1, 右がSheet2 その右下に出てくるのがオートシェイプの位置です。


No.3
- 回答日時:
最終目的はどういう結果がほしいのでしょう。
シート1に10種類の図形が用意されていて、
シート2では10個のエリアに図形を設定サイズで入れたいようですが。
シートの2の10個のセル範囲が書いてありますが、設定サイズがそのセル範囲に入りきらなくても、問題ないのですか?
目的がはっきりすれば、リンクとかでなく「該当図形を設定の大きさで入れる」という事が出来るように思えるのですが。

No.2
- 回答日時:
状況がわかりにくいです。
>シート1に、プルダウンリスト(図形の選択をするもの)
>シート2に、リンク貼り付けで切り替え表示できる図形
選択はシート1で、選択した図形はシート2に表示ですか。
この方法は
http://officetanaka.net/excel/function/tips/tips …
を参考にした方法でしょうか。
シート2の方のサイズをシート1のB列とC列の数値で変更したいという事なら
シート2の方がリンク貼り付けという事はシート1の図形の大きさを変更していかなくてはいけないのではと想像します。
シート2は実態として図形を好みのサイズで貼り付けたいのであれば、リンク貼り付けという事では出来ないのではないでしょうか。
こんばんわ。
おっしゃるとおりのサイトを参考にした方法でやっていました。
シート2の方だけで図形を縦横変えたいのですが、エクセルのマクロだけではできないですかね。すみません。
アドバイスありがとうございます。
No.1
- 回答日時:
こんにちは
チェックボックスなどですとセルと連動する機能がありますが、オートシェイプのサイズをセルの値と連動させるような機能はエクセルにはなかったと思います。
それなので、マクロ(VBA)で処理するしかないのではないでしょうか?
以下、ご参考までに。
http://hensa40.cutegirl.jp/archives/1186
https://www.moug.net/tech/exvba/0120024.html
検索すれば他にもいろいろ見つかることと思います。
操作に対応する処理としてどのようなことを行えば良いのかをざっと見るには、「マクロの記録」を活用なさるのも一法です。
でも、生成されるコードが固定的なので、あまりこれに頼らない方が良いとは思います。あくまでも参考程度になさるのが宜しいかと。
こんばんわ、ご回答ありがとうございます。
マクロの記録で動かしてみているのですが、まだ成功してないのでマクロで継続してやってみます。
どうもありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- Excel(エクセル) エクセルの表示形式について教えてください あるセルの「A」という値と、別のセルの「B」という値を組み 4 2023/02/21 21:55
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/06/19 10:08
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Excel(エクセル) 3つのエクセルをそれぞれのシートのセルに反映させたいときはどうしたらいいでしょうか? 例えば①シート 4 2023/04/25 20:13
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Excel(エクセル) エクセルの値を元に図形の色を変えたい 2 2022/05/11 01:37
このQ&Aを見た人はこんなQ&Aも見ています
-
見学に行くとしたら【天国】と【地獄】どっち?
みなさんは、一度だけ見学に行けるとしたら【天国】と【地獄】どちらに行きたいですか? 理由も聞きたいです。
-
スマホに会話を聞かれているな!?と思ったことありますか?
スマートフォンで検索はしてないのに、友達と話していた製品の広告が直後に出てきたりすることってありませんか? こんな感じでスマホに会話を聞かれているかも!?と思ったエピソードってありますか?
-
あなたの「プチ贅沢」はなんですか?
お仕事や勉強などを頑張った自分へのご褒美としてやっている「プチ贅沢」があったら教えてください。
-
洋服何着持ってますか?
洋服を減らそうと思っているのですが、何着くらいが相場なのかわかりません。
-
14歳の自分に衝撃の事実を告げてください
タイムマシンで14歳の自分のところに現れた未来のあなた。 衝撃的な事実を告げて自分に驚かせるとしたら何を告げますか?
-
エクセルで図形を連動させたい
Excel(エクセル)
-
条件に一致したときに画像を表示したいのですが・・。
Excel(エクセル)
-
エクセル2010 グラフの軸の最大値最小値をセル参照する
Excel(エクセル)
-
-
4
エクセルで条件をつけて図形を表示する方法を教えてください。例えば、セルA1に入力された数値が100以
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PowerPointで台形を描く方法
-
pdf上に描画した図形が印刷され...
-
線を組み合わせた図形の塗りつ...
-
Excel のバージョンによって、...
-
AutoCADで渦巻きを描く方法
-
Illustratorでくくり括弧記号を...
-
グーグルスプレッドシートの図...
-
エクセルVBAで図形のテキストを...
-
クリックしたらパネルがめくれ...
-
エクセル ユーザーフォームに...
-
Jw-cad の図形リストが表示でき...
-
ワードかエクセルの図形を使っ...
-
Illustratorで白い部分のみを透...
-
Excel2003図-扇形を書く方法は...
-
図形でしずく型を作りたい
-
G.CREWの使い方
-
Canvaの図形は、縦横比をキープ...
-
ワードで真ん中に図形を置いた...
-
Excel VBAのことでお聞きしたい...
-
【Excel】図形の色をクリックす...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PowerPointで台形を描く方法
-
pdf上に描画した図形が印刷され...
-
線を組み合わせた図形の塗りつ...
-
Excel のバージョンによって、...
-
Illustratorでくくり括弧記号を...
-
図形でしずく型を作りたい
-
クリックしたらパネルがめくれ...
-
AutoCADで渦巻きを描く方法
-
エクセル ユーザーフォームに...
-
エクセルVBAで図形のテキストを...
-
ワードかエクセルの図形を使っ...
-
グーグルスプレッドシートの図...
-
Excel2003図-扇形を書く方法は...
-
エクセルで図形を連動させたい
-
Excel 図形へのハイパーリンク
-
G.CREWの使い方
-
Canvaの図形は、縦横比をキープ...
-
ワード 2003。表とテキストボッ...
-
図形とビットマップの違いは?
-
WORDで図に網掛けする方法は?
おすすめ情報