A 回答 (3件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける
private sub Worksheet_Change(byval Target as range)
dim h as range
dim ha as range
dim mypath as string
set target = application.intersect(target, range("A:A"))
if target is nothing then exit sub
’指定のフォルダを指定する
mypath = "c:\test\"
on error resume next
for each ha in target.areas
for each h in ha
if h <> "" then
with activesheet.pictures.insert(mypath & "img_" & format(h, "000") & ".jpg")
.top = h.top
.left = h.offset(0, 1).left
'.width = ...option
'.height = ...option
.name = "IMG_" & h.address
end with
else
activesheet.shapes("IMG_" & h.address).delete
end if
next
next
end sub
A列に数字を記入する。
#後出しでついでに聞いちゃえ「あれもしたいこれもできますか」は無しの方向でお願いします。
サンプルマクロを下敷きにご自分で検討してみて,どうにも手が出なかったらまたご質問の状況を明確にして別途ご相談を。
No.2
- 回答日時:
以前したことがあります
sub test_Shape()
'現在のセル位置に指定画像を貼り付ける(セルの高さに合わせる場合)
'オブジェクトの宣言
Dim MyShape As Shape
Dim Pic As stdole.IPictureDisp
'ワーク変数の宣言
Dim w_file As string
Dim w_width As Long
Dim w_hight As Long
Dim w_ritu As Double
w_file = c:\pic\image.jpg '画像ファイル名(フルパス)
Set Pic = LoadPicture(w_file)
w_hight = Selection.Height 'セルの高さ
w_ritu = w_hight / Pic.Height '比率 = セルの高さ / 実画像の高さ
w_width = Int(Pic.Width * w_ritu)
Set MyShape = ActiveSheet.Shapes.AddPicture( _
Filename:=w_file, _
LinkToFile:=False, _
SaveWithDocument:=True, _
Left:=Selection.Left, _
Top:=Selection.Top, _
Width:=w_width, _
Height:=w_hight)
end sub
これでいけるはず
No.3
- 回答日時:
すみません実行分の1行目をタイプミスしたようです
(誤) w_file = c:\pic\image.jpg '画像ファイル名(フルパス)
(正) w_file ="c:\pic\image.jpg" '画像ファイル名(フルパス)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Excel(エクセル) Excel 毎日手作業で時間がかかって、泣きたいです、、、VBAのプロの方、助けてください。。。 3 2022/10/25 04:26
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Excel(エクセル) EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く 3 2022/08/30 12:06
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- JavaScript jQueryで同じクラス名のものを別物として扱いたい 1 2022/06/17 14:14
- Excel(エクセル) エクセル表作成について 5 2023/03/12 13:25
- Perl 画像が表示でnull; this.src 1 2022/04/19 11:31
- JavaScript html5に変えるとスライドショーが消えてしまった。 3 2022/03/26 19:53
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELマクロ 保護されているシ...
-
ハイパーリンクされているファ...
-
データが入力されている隣のセ...
-
エクセルテキストボックスの文...
-
Excelについて
-
VBAで丸をつけたいです。
-
Jtableの特定のセルの背景色や...
-
Excelのセル内にある図形を削除...
-
エクセルVBA(実行時エラー438...
-
Excelのアクティブなセル情報
-
(VBA)アクティブセルを起点に...
-
Windowsで動くVBAがmacOSで動か...
-
VBAで、貼り付け禁止命令を実現...
-
ダブルクリックすると現在の時...
-
GrapeCityのSpreadの複数セルの...
-
エクセルVBA セル選択後にカレ...
-
セル色を5秒間隔で変える
-
VBAのListBoxで複数選択して...
-
Excel VBA セルを指定個数ラン...
-
【ExcelVBA】セルに入力された...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
データが入力されている隣のセ...
-
EXCELマクロ 保護されているシ...
-
エクセルテキストボックスの文...
-
VBAで、貼り付け禁止命令を実現...
-
Excelについて
-
メッセージを1度だけ表示したい。
-
ダブルクリックすると現在の時...
-
ハイパーリンクされているファ...
-
エクセルVBA セル選択後にカレ...
-
Jtableの特定のセルの背景色や...
-
VBAで丸をつけたいです。
-
エクセルVBA(実行時エラー438...
-
Excelのセル内にある図形を削除...
-
Swing 編集不可でも選択可能なJ...
-
(VBA)アクティブセルを起点に...
-
Excel VBA セルを指定個数ラン...
-
VBA セルに合わせて移動するが...
-
Windowsで動くVBAがmacOSで動か...
-
セル色を5秒間隔で変える
-
Excel VBA ダブルクリックで入...
おすすめ情報