Excelのコメントから画像を抽出する方法は？

Excelでは、コメントに画像をできるだけ簡単に挿入できますが、コメントボックスからセルまたは特定のフォルダに画像を抽出することを検討したことがありますか？ この記事では、コメントから画像を抽出する方法について説明します。

名前を付けて保存機能を使用して、コメントから画像を抽出してフォルダに保存します

コメントからVBAコードを使用してセルに画像を抽出する

名前を付けて保存機能を使用して、コメントから画像を抽出してフォルダに保存します

コメントから画像を抽出してフォルダに保存する場合は、次のようにしてください。

1。 保存したい画像付きのコメントを含むシートを新しい空白のワークブックにコピーします。

2。 そして、 File > 名前を付けて保存 この新しいワークブックをとして保存するには ウェブページ 特定のフォルダでフォーマットします。スクリーンショットを参照してください。

3。 次に、をクリックします Save ボタンをクリックしてファイルを保存し、特定のフォルダーに移動して保存された画像を表示します。XNUMXつのファイルがフォルダーに生成されます。XNUMXつはhtmlファイルで、もうXNUMXつはすべての画像とその他のファイルを含むフォルダーです。スクリーンショットを参照してください。

コメントからVBAコードを使用してセルに画像を抽出する

次のスクリーンショットのように、コメントからセルに画像を抽出する場合は、ここでVBAコードを作成できます。次のようにしてください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、モジュールウィンドウに次のコードを貼り付けます。

VBAコード：コメントからセルに画像を抽出します。

Sub CommentPictures()
'Updateby Extendoffcie
    Dim cmt As Comment
    Dim xRg As Range
    Dim visBool As Boolean
    Dim cmtTxt As String
    Dim jpgPath As String
    Dim shpHeight As Integer, shpWidth As Integer
    Application.ScreenUpdating = False
    For Each cmt In ActiveSheet.Comments
        With cmt
            cmtTxt = .Text
            shpHeight = .Shape.Height
            shpWidth = .Shape.Width
            .Text Text:="" & Chr(10) & ""
            visBool = .Visible
            .Visible = True
            On Error Resume Next
            Set xRg = .Parent.Offset(0, 1)
            .Shape.CopyPicture _
              Appearance:=xlScreen, Format:=xlPicture
            xRg.PasteSpecial
            Selection.ShapeRange.LockAspectRatio = msoFalse
            Selection.Width = xRg.Width
            Selection.Height = xRg.Height
            .Visible = visBool
            .Text Text:=cmtTxt
        End With
    Next cmt
    Application.ScreenUpdating = True
End Sub

3。 次に、 F5 このコードを実行するためのキー。現在のワークシートのコメントのすべての画像が次の列のセルに抽出されています。スクリーンショットを参照してください。