excel - jpeg ファイルを公開する XL マクロ - jpeg ファイルの保存場所

Question

Sheet1 モジュールにあるマクロは次のとおりです。

Private Sub Worksheet_Calculate()
    Dim oPic As Picture
    Me.Pictures.Visible = False
    With Range("F1")
        For Each oPic In Me.Pictures
            If oPic.Name = .Text Then
                oPic.Visible = True
                oPic.Top = .Top
                oPic.Left = .Left
                Exit For
            End If
        Next oPic
    End With
End Sub

ワークブックでは、これは次のようになります。

にアクセスするにはどうすればよいMe.Picturesですか? 写真を追加し、既存の写真の一部を削除したいと考えています。

Answer 1

既存のコードの 3 行目だけを使用するこれを実行してみてください

Private Sub MakeAllPicsVisible()
    Me.Pictures.Visible = True
End Sub

Meコードが含まれているワークシート オブジェクトを参照します。各画像は、リスト内の項目で名前が付けられているように見えます

画像の名前を変更するには、[名前] ボックス (数式バーの左側) に新しい名前を入力します。