'=========================================================================================
' 283 画像を削除する
'-----------------------------------------------------------------------------------------
'【ご注意】
'PicturesメソッドはExcel95の機能で、Excel97以上では隠し機能です
'★★★のない行はタイトル機能とは無関係です
'


'=========================================================================================
' ◆（標準）モジュールシートのコード◆
'-----------------------------------------------------------------------------------------
Option Explicit
Dim 初回 As Integer
Dim タイトル As String
Dim スタイル As Long
Dim メッセージ As String
Dim 応答 As Variant


'=========================================================================================
Private Sub すべての画像を削除する_書き方1() '★★★
    Worksheets("SSS").Pictures.Delete       'ワークシート"SSS"の、すべての画像を削除する
End Sub
'----------------------------------------------------------------------------------------
Private Sub すべての画像を削除する_書き方2() '★★★
    ActiveSheet.Pictures.Delete             'アクティブシートの、すべての画像を削除する
End Sub
'=========================================================================================
Private Sub 指定した画像を削除する_書き方1() '★★★
    Worksheets("SSS").Pictures(1).Delete    'ワークシート"SSS"の、インデクス番号1の画像を削除する
End Sub
'----------------------------------------------------------------------------------------
Private Sub 指定した画像を削除する_書き方2() '★★★
    ActiveSheet.Pictures(2).Delete          'アクティブシートの、インデクス番号2の画像を削除する
End Sub
'=========================================================================================





'-----------------------------------------------------------------------------------------
Sub おためしマクロ()
    Worksheets("Title").Select
    Range("P16").Select                        'カーソルを定位置へ移動する
        If 初回 = 1 Then
            GoTo リスタート
        End If
        初回 = 1
        おためしメッセージを表示する
        ActiveSheet.Unprotect                   'シートの保護を解除する
'
    指定した画像を削除する_書き方2              '★★★
    ActiveSheet.Protect DrawingObjects:=True, _
        Contents:=True, Scenarios:=True         'シートを保護する
    Exit Sub
'
リスタート:
        メッセージ = "リスタート機能はありません" & Chr(13) & Chr(13) & _
                "ブックを開き直してください"
        スタイル = 16                               'vbCritical
        応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'-----------------------------------------------------------------------------------------
Private Sub おためしメッセージを表示する()
    タイトル = "500連発 第2弾 サンプルマクロ"
    スタイル = 64                               'vbInformation
    メッセージ = "このワークシートには3つの図があります。" & Chr(13) & Chr(13) & _
                "中央の図を削除します"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'-----------------------------------------------------------------------------------------
Sub Auto_Close()
    Application.DisplayAlerts = False           '閉じる際に確認メッセージを出さない
    ActiveWorkbook.Close                        '現在開いているブックを閉じる
End Sub
'-----------------------------------------------------------------------------------------