Dim pnam2 As String
Dim km As Integer

Sub ki293()
If km = 0 Then
     ki293a
Else
    ki293b
End If
  
End Sub

Sub ki293a()

    Range("L13").Select
'画像コピ−
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    Range("B2").Select
    ActiveSheet.Paste
    
    shc = ActiveSheet.Pictures.Count
    ActiveSheet.Pictures(shc).Select
    pnam2 = Selection.Name
  
  ActiveSheet.Shapes(pnam2).Select
    hei = Selection.ShapeRange.Height
    wid = Selection.ShapeRange.Width
    
   ki293b
End Sub

Sub ki293b()
'拡大表示
km = 1
ActiveSheet.Shapes(pnam2).Select
 Selection.ShapeRange.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
 Selection.ShapeRange.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
 DoEvents
Range("A1").Select
End Sub
 
Sub ki293c()
km = 0
shc = ActiveSheet.Pictures.Count
If shc > 0 Then
        shc = ActiveSheet.Pictures.Count
       ActiveSheet.Pictures(shc).Select
       pnam2 = Selection.Name
        ActiveSheet.Shapes(pnam2).Select
        Selection.Delete
End If
End Sub