Sub 選択した幅で画像挿入() Dim PictName As String Dim GetPic As Shape Dim SelWidth As Long '選択しているもがvbObjectなら処理を抜ける If VarType(Selection) = vbObject Then Exit Sub '選択列が26列を超えていたら終了 If Selection.Cells.Columns.…