Dim pnam2 As String
Dim km As Integer

Sub ki294()
If km = 0 Then
     ki294a
Else
    ki294b
End If
  
End Sub

Sub ki294a()
    
    shc = ActiveSheet.Pictures.Count
    ActiveSheet.Pictures(shc).Select
    pnam2 = Selection.Name
  
  ActiveSheet.Shapes(pnam2).Select
    hei = Selection.ShapeRange.Height
    wid = Selection.ShapeRange.Width
    
   ki294b
End Sub

Sub ki294b()
'Šg‘å•\Ž¦
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 ki294c()
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
Sub ki294d()
Application.ScreenUpdating = False
 Sheets("Sheet1").Select
    ActiveSheet.Shapes("Picture 1").Select
    Selection.Copy
    Sheets("Title").Select
    Range("C11").Select
    ActiveSheet.Paste
    Range("B6").Select
End Sub