エクセルVBA･開くフォルダを統一したい

いつもお世話になっております。
先ほどこちらで質問し、解決したのですが、開くフォルダを統一(デスクトップ)する方法がわかりません。

Sub 写真挿入()
Dim fName As Variant
Dim pict As Shape
fName = Application.GetOpenFilename("JPG,*.jpg", MultiSelect:=True)
If IsArray(fName) Then
For i = 1 To UBound(fName)
With ActiveCell
Set pict = ActiveSheet.Shapes.AddPicture(Filename:=fName(i), LinkToFile:=False, SaveWithDocument:=True, _
Left:=.Left, Top:=.Top, Width:=.MergeArea.Width, Height:=.MergeArea.Height)
End With
ActiveCell.Offset(2, 0).Activate
Next i
End If
End Sub

デスクトップを開くにはこの構文でどこを直したらいいのでしょうか？
いろいろ試したのですができませんでした。
よろしくお願いいたします。

No.2 ベストアンサー 回答者： ppp2122 回答日時： 2020/12/21 23:38

Dim wsh As Object

Dim mypath As String

Set wsh = CreateObject("WScript.Shell")
mypath = wsh.SpecialFolders("Desktop")

ChDir mypath

この回答へのお礼

たびたびありがとうございます。
早速やってみたところ、無事にできました。
デスクトップのパスだけで何行もあるんですね。
想像してませんでした。
本当にありがとうございました。

お礼日時：2020/12/22 11:15

No.1 回答者： ppp2122 回答日時： 2020/12/21 17:41

fName = Application.GetOpenFilename("JPG,*.jpg", MultiSelect:=True)

の前に

ChDir　デスクトップのパス

を入れます

この回答へのお礼

ppp21222さん

ありがとうございます。
なるほど、足すんですね。
ずっとドキュメントフォルダと置き換えることばかり考えてました。

でもいろいろやってみましたが、デスクトップのパスがわからず、エラーになってしまいました。

明日、またチャレンジしてみます。

お礼日時：2020/12/21 23:08