GIFも貼れないのか(´・ω・`)
まずは画像を貼ってみる
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.…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。