17回の動画では、Webのデータや画像を書式なしでコピーして貼り付けるマクロや、画像を指定したフォーマットでシートに張り付ける方法を解説しています。
Webから利用したいデータや、画像をExcelで利用しようとしたときに、そのままの形式では、修正に時間がかかって困ることがあります。
そのような時に使うと設定されている書式を削除して欲しいデータや、画像だけを取得できます。

'==============================================================
'=Webのデータや画像を書式なしでコピーして貼り付ける €€https://kokodane.com/
'==============================================================
Option Explicit
Sub WEBのデータを書式なしDL()
    ActiveSheet.PasteSpecial Format:="テキスト"
End Sub

Sub 画像の形式指定DLPNG()
    ActiveSheet.PasteSpecial Format:=0   '"Picture (PNG)"
End Sub

'==============================================================
'=貼り付け位置を指定してフォーマットも指定する
'==============================================================
Sub 画像をJPEG指定でDL()
    Worksheets("Sheet2").Range("B8").Select
    ActiveSheet.PasteSpecial Format:=1 ' "Picture (JPEG)"
End Sub

Sub 画像をGIF指定でDL()
    Worksheets("Sheet2").Range("B13").Select
    ActiveSheet.PasteSpecial Format:=2  '"Picture (GIF)"
End Sub
'"Picture (Enhanced Metafile)"
Sub 画像をEnhancedMetafile指定でDL()
    Worksheets("Sheet2").Range("B13").Select
    ActiveSheet.PasteSpecial Format:=3
End Sub

Sub 画像をBitmap指定でDL()
    Worksheets("Sheet2").Range("B18").Select
    ActiveSheet.PasteSpecial Format:=Bitmap
End Sub

Sub 画像の形式指定DLビットマップ()
    ActiveSheet.PasteSpecial Format:="ビットマップ"
End Sub

Sub 画像をBitmap指定でDLサイズも指定()
    ActiveSheet.PasteSpecial Format:="ビットマップ"
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Width = 198.4251968504
End Sub

Sub 動くGIF画像をDL()
    ActiveSheet.PasteSpecial Format:="HTML", _
        Link:=False, DisplayAsIcon:=False
End Sub