No.2
- 回答日時:
「VBA 画像」でOKWAVEの照会をしてください。
過去に、似たような質問回答があります。私の回答では
http://okwave.jp/kotaeru.php3?q=2091001
など。
その前にマクロの記録をとって、挿入-図-ファイルからなどをとって、学習して行くことから始めて、類推して広げてみてください。
No.3
- 回答日時:
VBA不得意な私なりの拙いマクロです。
各シートは次のように設定してください。
A)入力用シート(左端のシート)
・A1に画像の保存してあるフォルダのフルパスを入力。
B)画像表示シート(左から二番目のシート)
・1ページ行数:60、 行高はすべて同じ。
入力用シートのシートタブを右クリックして「コードの表示」を選択し、
表示される画面に以下をコピーします。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim FPath, FName, R, C, H, W
If Target.Column <> 2 Then Exit Sub
On Error Resume Next
If Target.Value = "" Then Exit Sub
Application.ScreenUpdating = False
FPath = Range("A1").Value & "\"
FName = Target.Value
R = 20 * (Target.Row - 1) + 1
Sheets(2).Select
ActiveSheet.Cells(R, 1).Select
ActiveSheet.Pictures.Insert(FPath & FName).Select '※
H = Selection.Height
W = Selection.Width
Selection.Height = 240
Selection.Width = 240 * W / H
Sheets(1).Select
Application.ScreenUpdating = False
End Sub
準備ができたら、入力シートのB列に1行目(B1)からファイル名を拡張子付きで
入力していきます。
この回答への補足
ありがとうございます。
できました!出来た時は感動でした!!
できれば、写真の大きさをもう少し小さくしたいのですが、どこを変えればいいんでしょうか?
何度もすみません。よろしくお願いします。
No.4
- 回答日時:
#3です。
> 写真の大きさをもう少し小さくしたいのですが、どこを変えれば,,,,
下から5行目にある
Selection.Height = 240
の、数値部分を少し小さくします。
縦サイズだけを変更するわけですが、横サイズは、実際の写真(?)の
比率で自動的に小さくなります。
No.5ベストアンサー
- 回答日時:
#4の訂正です。
Selection.Height = 240
Selection.Width = 240 * W / H
この2行の数値部分を同じく変更してください。
なお、
Selection.Height = 240
Selection.Width = Selection.Height * W / H
のように書き換えておくと、次からは先述の1行だけの修正で済みます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Excel(エクセル) エクセルで指定範囲にある名前と重複した場合に入力できないようにしたい 1 2023/07/13 09:58
- Excel(エクセル) vba 同じブック内での転記について 4 2023/01/15 14:42
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- Excel(エクセル) iphonからone driveに保存してあるExcelを閲覧すると表示の仕方がちがうデータ 2 2022/12/21 13:51
- Excel(エクセル) Excelシフト表 固定シフトの自動変換化 1 2022/04/14 16:10
- Excel(エクセル) エクセルで対象日に該当するデータがある場合に別表へ全対象者を表示させたい。 3 2023/07/12 09:48
- Excel(エクセル) エクセル VBA セルの結合 2 2022/09/07 11:48
- Excel(エクセル) Excel シートに画像が貼ってあり、クリックすると入力シートにジャンプする機能 1 2023/01/14 22:41
- Visual Basic(VBA) VBAリストボックスで選択した後 5 2022/11/07 17:50
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで複数のシートを一度に「...
-
エクセルで複数のシートに画像...
-
エクセルでブック内の倍率がバ...
-
Accessのテーブルを既存のExcel...
-
特定のシートのみ再計算させな...
-
【ExcelVBA】マクロの入ったシ...
-
EXCELの図形(テキストボックス)...
-
エクセルのシー名を二段表示に...
-
エクセルの2つのシートを並び...
-
エクセル、特定のシートにパス...
-
エクセルでリンク貼り付けした...
-
ワークシートそのものの色を変...
-
【Excel VBA】データ貼り付け先...
-
エクセルのシート連番の振り直し
-
EXCELの「シートの見出し」のフ...
-
エクセル、別のシートの表をポ...
-
エクセルで、シートの名前を変...
-
アクセスからエクセルのシート...
-
EXCELで存在しないシート...
-
Wordで差し込み印刷時に表示す...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで複数のシートを一度に「...
-
エクセルで複数のシートに画像...
-
特定のシートのみ再計算させな...
-
エクセルでブック内の倍率がバ...
-
ワークシートそのものの色を変...
-
【ExcelVBA】マクロの入ったシ...
-
エクセルの2つのシートを並び...
-
EXCELの図形(テキストボックス)...
-
ハイパーリンクでジャンプした...
-
エクセルのシート連番の振り直し
-
特定の複数のシートに同じ処理...
-
エクセルのシー名を二段表示に...
-
Wordで差し込み印刷時に表示す...
-
エクセルで、シートの名前を変...
-
エクセルでリンク貼り付けした...
-
エクセル、特定のシートにパス...
-
accessへエクセルの複数のシー...
-
Accessのテーブルを既存のExcel...
-
【Excel VBA】データ貼り付け先...
-
EXCELの「シートの見出し」のフ...
おすすめ情報