| |
kanabun様、いつも大変お世話になっております。丁寧なご回答ありがとうございます。以下ご質問いただいた内容について、ご回答いたします。宜しくお願いします！
1.選択したセルに記載された画像ファイルパス（名）のファイルを読み込み、EXCELに貼り付ける形しか思いつきませんでした・・・。ですが本当はエクセルにファイルパスを記入せずとも画像を貼り付けられるような形にしたいと思います・・。
'
Sub EggFunc_pasteImage()
' 変数定義
Dim filePath As String
Dim targetCell As Range
' エラーを無視する（画像ファイル読込み失敗時用）
On Error Resume Next
' 選択したセル範囲を順次処理
For Each targetCell In Selection.Cells
' セルを選択
targetCell.Select
' 値があれば
If targetCell.Value <> "" Then
' 画像ファイル名として取得
filePath = targetCell.Value
' 画像読込み
ActiveSheet.Pictures.Insert(filePath).Select
' 画像が大きい場合、画像サイズをセル幅に合わせる
Selection.width= targetcell.width
Selection.Height = targetCell.Height
End If
End If
End If
Next
End Sub
2.「写真の大きさ指定」にある 「3行〜18行」とかの数値の意味がよく分かりません。「写真の左上のセル番号」が J3 で 行方向に [J3:J18] の高さにリサイズして貼り付けたい... とかなら、分かるんですけど？
→おっしゃる通りです。「写真の左上のセル番号」がA10で行方向「A3:A18」の高さにリサイズして貼り付けるという意味です。（「写真左上のセル番号」はJ列ではなくA列でした。失念しておりました。すいません。）
>写真名を記載するセル番号 写真の左上のセル番号 写真の大きさ指定
>・J3 ・・・・・・・・・・・・・A10・・・・・・・・・・・・3行〜18行
>・J30・・・・・・・・・・・・・A30・・・・・・・・・・・・23行〜38行
>・J50・・・・・・・・・・・・・A50・・・・・・・・・・・・43行〜58行
>・J70・・・・・・・・・・・・・A70・・・・・・・・・・・・63行〜78行
>・J90・・・・・・・・・・・・・A90・・・・・・・・・・・・83行〜98行
>
>※写真の大きさ指定は、行方向へは上記のように指定しますが、A列B列など、列方向へは指定しません。縦横比は固定したいと思います。
3.エクセルバージョンは、Excel2007です。
|
|
ようちゃん
- 12/2/10(金) 15:56 -
