[[20240301170711]]　『マクロで画像を貼り付ける作業をオフラインでした』（さん）　ページの最後に飛ぶ

『マクロで画像を貼り付ける作業をオフラインでしたい』（さん）

以下のマクロを使用して、エクセルに写真を貼り付けて書類を作成しております。

最近になってネット環境にない状態(オフライン)では、写真を貼り付けたい箇所をクリックしても画像を選択する画面が開かなくなりました。
以下のマクロはオフラインでは使用することが出来ないのでしょうか。
写真はリンクではなくエクセルに埋め込みたいと思っています。

解決方法がありましたら教えていただけると助かります。
よろしくお願いいたします。

Sub テキスト1_Click()
Range("A5").Select

   A = Application.Dialogs(xlDialogInsertPicture).Show
   If A = False Then Exit Sub
   Selection.ShapeRange.LockAspectRatio = msoTrue
   Selection.ShapeRange.Height = 150
   Selection.ShapeRange.IncrementLeft 0
   Selection.ShapeRange.IncrementTop 0
End Sub

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

 なんか、Updateで変わってますね。
 以下でどうでしょう？

 Sub テキスト1_Click()
    Range("A5").Select
    Call Application.CommandBars.ExecuteMso("PictureInsertFromFile")
    If TypeName(Selection) = "Picture" Or TypeName(Selection) = "DrawingObjects" Then
        '画像に対する処理をここに書く。
    End If
 End Sub

 挿入する画像が1枚なら「Picture」、複数枚なら「DrawingObjects」になるみたいです。
 3/2 5:20修正
（まる2021） 2024/03/01(金) 19:00:53

まる2021様

ご教示いただきましたマクロでオフラインで写真を挿入することが出来ました。
大変助かりました。ありがとうございました。

（さん） 2024/03/04(月) 19:40:43

コメント返信：

[ 一覧(最新更新順) ]

[[20240301170711]] 『マクロで画像を貼り付ける作業をオフラインでした』（さん） ページの最後に飛ぶ

[[20240301170711]]　『マクロで画像を貼り付ける作業をオフラインでした』（さん）　ページの最後に飛ぶ