Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26258 / 76738

←次へ　｜　前へ→


	【55812】Re:サイズが異なる画像の貼り付け

mari - 08/5/20(火) 11:55 -


	引用なし

	パスワード

▼kanabun さん：

ご回答ありがとうございます。
画像を貼りつけるマクロはこんな感じになるのでしょうか？？

ActiveCell.Value="1.gif"
ActiveSheet.Pictures.Insert("D:\" & ActiveCell.Value)
With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
　　.Left = ActiveCell.Offset(0, 1).Left
　　.Top = ActiveCell.Offset(0, 1).Top
End With

>１つの行の高さ：120、幅：30と指定しています。
>画像はセル内におさまるように、縮小又は拡大したいです。
すみません。。。
セルの高さ：120、幅：30（固定）として、そのセル内にサイズが異なる画像を貼り付けたいです。
ご享受お願いします。

2 hits

▼

【55805】サイズが異なる画像の貼り付け mari 08/5/20(火) 10:40