Excel 画像挿入時のサイズ設定について
初めまして。いつもユーザーフォーラムを参考にシナリオ開発をしております。
今回、同案件が見つらなかったので質問させて下さい。
【やりたいこと】
ライブラリ「Excel操作(ファイルから画像挿入)」でExcelに指定画像を挿入後、
挿入先セル幅にあわせてサイズ調整を行いたい。
※挿入したい画像ファイルは複数あり、それぞれ挿入先も異なるため、「画像ファイル」「挿入先セル」とも変数でもたせています。
※「Excel操作(ファイルから画像挿入)」はプチライブラリより入手しました。
【シナリオ説明】
①Excel操作(ファイルから画像挿入)」
↓
②Excel操作(マクロ実行)
※この後挿入先セル、画像ファイルを変えて上記を繰り返します。
‐‐‐②のソースコード------------‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐
Public Sub 写真サイズ変更()
'Keyboard Shortcut: Ctrl Shift + H
Dim pic As Shape
Dim a As Object, b As Object
Dim i As Long
Set a = Selection
For i = 1 To ActiveSheet.DrawingObjects.Count
Set b = ActiveSheet.DrawingObjects.Item(i)
If a.ShapeRange.AutoShapeType = b.ShapeRange.AutoShapeType And _
a.Name = b.Name And _
a.Index = b.Index Then
'MsgBox i
Exit For
End If
Next i
Set pic = ActiveSheet.Shapes(i)
With pic.TopLeftCell
pic.LockAspectRatio = msoFalse
pic.Top = .Top
pic.Left = .Left
pic.Width = .Width
pic.Height = .Height
End With
End Sub
‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐------------‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐
【困っていること】
上記 ②Excel操作(マクロ実行)にて、サイズ調整を行うマクロを実行していますが、
挿入した画像が選択されず、マクロが走らない状態です。
解決策の糸口として以下を思いつきましたが、当方スクリプト等の知識なくつまづいています。。
・Excel操作(ファイルから画像挿入)のスクリプトを編集し、画像挿入時にセル幅に合わせて画像挿入する
・挿入した画像をマクロで選択させる ←選択する画像が可変するためコードがわかりませんでした。。
ご教授いただけますと幸いです、よろしくお願い致します。