No.1ベストアンサー
- 回答日時:
マクロのサンプルを2つ書きました
picCenterは処理対象のセルを固定しています(この例ではアクティブなシートのA26セル)。
またselCenterは、シート上で選択されたセルを処理対象とします。(ただし選択されているのが結合セルでない場合は、先頭の1セルだけを処理対象範囲とします)
いずれも対象セル範囲にある画像を「対象セル範囲の中央」に配置します。ただし画像がセル範囲より大きいときは何もしません。
マクロはALT+F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。マクロの実行はワークシート画面に戻ってALT+F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。
とりあえず「16行4列を接合(左上がA26)しています」の中に画像を貼り付けてマクロを動かしてみてください
Sub picCenter()
Dim p As Object
Dim rng, trg As Range
Const adr As String = "A26" '処理対象セルの左上のアドレス
If Range(adr).MergeCells Then
Set rng = Range(adr).MergeArea
Else
Set rng = Range(adr)
End If
For Each p In ActiveSheet.Pictures
Set trg = Intersect(rng, p.TopLeftCell)
If Not trg Is Nothing Then
If p.Width < rng.Width Then
p.Left = rng.Left + (rng.Width - p.Width) / 2
End If
If p.Height < rng.Height Then
p.Top = rng.Top + (rng.Height - p.Height) / 2
End If
End If
Next p
End Sub
Sub selCenter()
Dim p As Object
Dim rng, trg As Range
If TypeName(Selection) = "Range" Then
If Selection.MergeCells Then
Set rng = Selection.Cells(1, 1).MergeArea
Else
Set rng = Selection.Cells(1, 1)
End If
End If
For Each p In ActiveSheet.Pictures
Set trg = Intersect(rng, p.TopLeftCell)
If Not trg Is Nothing Then
If p.Width < rng.Width Then
p.Left = rng.Left + (rng.Width - p.Width) / 2
End If
If p.Height < rng.Height Then
p.Top = rng.Top + (rng.Height - p.Height) / 2
End If
End If
Next p
End Sub
No.2
- 回答日時:
>接合(
セル結合の誤り?
>16行4列を接合(左上がA26)
1つの図(写真)はそうだとして、第2、第3の写真の置くシートと位置はどうなるの。
>エクセルには「シート」というものがあります。
1シートに1写真にするのですか。
>Excelで挿入した図を
図といっても、写真らしいから、「Excelで挿入した写真を」と質問したら。
ーー
読み込まれた写真は、シート上に浮いたようなもので、かろうじてエクセルでは、セルのTOP,LEFTなどに関連づけ(アンカー係留的に)て位置づけ出来ます。するとセルの幅の変動などに影響を受けるわけです。
ーー
私はB3:D13をセル結合してやってみました。
Sub test01()
MsgBox Range("B3").MergeArea.Address
t = Range("B3").MergeArea.Top
MsgBox t
l = Range("B3").MergeArea.Left
MsgBox l
h = Range("B3").MergeArea.Height
MsgBox h
w = Range("B3").MergeArea.Width
MsgBox w
End Sub
でセル結合後のセルのTop,・・などの値が取れます
ーー
>セルの中央に配置とは書いてあるが
余白をどうするか書いてない。書くべきです。10と仮定。
(セル幅、行高で10でも見た目違う。)
写真のトップなどの位置は
s_top=top+10
s_left=left+10
s_height=height-20
s_width=width-20
--
それでマクロの記録を修正して
Sub Macro1()
t = Range("B3").MergeArea.Top
l = Range("B3").MergeArea.Left
h = Range("B3").MergeArea.Height
W = Range("B3").MergeArea.Width
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\xxx\My Documents\My Pictures\P1010038.JPG").Select
Selection.ShapeRange.Top = t + 10
Selection.ShapeRange.Left = l + 10
Selection.ShapeRange.Height = h - 20
Selection.ShapeRange.Width = W - 20
End Sub
xxxはユーザー。
ーー
写真100枚の繰り返しは、アクチブシートを順次移動して、そのアクチブシートに対し上記を行う。その前に各・毎シートで下記を行う
Sub test01()
ActiveSheet.Range("B3:D13").MergeCells = True
End Sub
ーー
写真の数の捉え方
写真が増えたときn増えた分の処理
など難しいことが未考察ですが。
ありがとうございます
おかげさまで出来ました
書き込む情報が足りずにすみませんでした
それなのに、いろいろわかりやすくありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
誕生日にもらった意外なもの
みなさんがもらった誕生日プレゼントで面白いものがあったらぜひ教えてください!
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルで写真の挿入 セルの中央に写真を挿入する方法を教えてください。 (画像挿入→画像選択→デカイ
Excel(エクセル)
-
Excelで挿入した図をセルの中央に配置したいのです。
Excel(エクセル)
-
EXCEL VBAで 図形を中央寄せに関して質問です
Excel(エクセル)
-
-
4
エクセルで画像を真ん中に貼り付けたい
Excel(エクセル)
-
5
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
6
excel2007で図形をシートの中央へ配置する方法
Excel(エクセル)
-
7
Excel VBA素人です。VBAで図形のセンタリング方法ご教示下さい
Visual Basic(VBA)
-
8
高さでDLとELの違い
その他(ビジネス・キャリア)
-
9
マクロを実行すると画像がズレてしまいます
その他(Microsoft Office)
-
10
VBAによるセル内の画像の位置調整
Excel(エクセル)
-
11
VBAエクセルに貼り付けた画像をセルにあった大きさにしたい(等倍)
Excel(エクセル)
-
12
エクセルVBA 画像を貼り付けるセル位置を指定する方法
Excel(エクセル)
-
13
Excel に貼り付けた図形が、保存した後、再度、開くと勝手に動いている。
Excel(エクセル)
-
14
セルの文字を「印刷時だけ非表示」にしたいです。
Excel(エクセル)
-
15
【VBA】写真の縦横比を変えずに貼り付ける
Visual Basic(VBA)
-
16
メールアドレスの@の前後の呼び方を教えていただけませんか。
Outlook(アウトルック)
-
17
エクセルの改行時、2行目の頭にスペースを入れる方法
その他(パソコン・スマホ・電化製品)
-
18
株式会社は(株)、有限会社は(有)、その他には?
会社設立・起業・開業
-
19
有無、要否、賛否、是非、可否、当否…これらの言葉について
その他(教育・科学・学問)
-
20
EXCELでA4用紙に余白ナシで印刷したいです
その他(パソコン・スマホ・電化製品)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
Excel内での検索結果をシート...
-
エクセル 数字をすべて○などの...
-
クリックすると文章が表示され...
-
エクセル シート保護された共...
-
太字に設定されているセルの個...
-
Excelで、図形内の文字をセルに...
-
セルがクリックされた回数をカ...
-
Excel ハイパーリンクのURLを別...
-
エクセルでPDFリンクを大量...
-
アポストロフィーの一括挿入 ...
-
フォントの色を指定して削除出...
-
Excel2007 色のカウント (VBA)
-
シート保護とグループ化機能を...
-
現在のセルの位置を返す関数は...
-
エクセルでページ数をあるセル...
-
【EXCEL】先週の月曜日の日付を...
-
セルの値が変ると自動でマクロ...
-
マクロを実行すると画像がズレ...
-
[エクセル VBA]テキストファ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
Excel内での検索結果をシート...
-
エクセル 数字をすべて○などの...
-
クリックすると文章が表示され...
-
太字に設定されているセルの個...
-
Excelで、図形内の文字をセルに...
-
Excelでセルをクリックす...
-
Excel ハイパーリンクのURLを別...
-
ページ内ハイパーリンクの表示...
-
マクロを実行すると画像がズレ...
-
現在のセルの位置を返す関数は...
-
セル背景や文字を点滅させる方法
-
エクセルでPDFリンクを大量...
-
EXCELのセルや文字色の反映
-
エクセル 未入力セルがあると...
-
【EXCEL】先週の月曜日の日付を...
-
エクセルでページ数をあるセル...
-
セルがクリックされた回数をカ...
-
VBA 見つからなかった時の処理
-
フォントの色を指定して削除出...
おすすめ情報