0

初めまして。いつもユーザーフォーラムを参考にシナリオ開発をしております。

今回、同案件が見つらなかったので質問させて下さい。

【やりたいこと】

ライブラリ「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操作(ファイルから画像挿入)のスクリプトを編集し、画像挿入時にセル幅に合わせて画像挿入する

 ・挿入した画像をマクロで選択させる ←選択する画像が可変するためコードがわかりませんでした。。

ご教授いただけますと幸いです、よろしくお願い致します。

この質問は解決済みのためクローズされています。
ayumi ベストアンサーとして選択しました
回答とコメントは、会員登録(無料)で閲覧できるようになります。