1. Seçili hücreleri otomatik olarak büyütmek istediğiniz çalışma sayfası sekmesine sağ tıklayın ve ardından bağlam menüsünden Görünüm Kodu'nu seçin 4.
2. Açılan Microsoft Visual Basic for Applications penceresinde aşağıdaki kodu boş Modül'e kopyalayıp yapıştırın 4:

Private Sub worksheet_selectionchange(ByVal Target As Range)
    Dim xRg As Range
    Dim xCell As Range
    Dim xShape As Variant
    Set xRg = Target.Areas(1)
    For Each xShape In ActiveSheet.Pictures
        If xShape.Name = "BUYUT" Then
            xShape.Delete
        End If
    Next
    If Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Then
        Exit Sub
    End If
    Application.ScreenUpdating = False
    xRg.CopyPicture appearance:=xlScreen, Format:=xlPicture
    Application.ActiveSheet.Pictures.Paste.Select
    With Selection
        .Name = "BUYUT"
        With .ShapeRange
            .ScaleWidth 2.5, msoFalse, msoScaleFromTopLeft
            .ScaleHeight 2.5, msoFalse, msoScaleFromTopLeft
        End With
        With .Fill
            .ForeColor.SchemeColor = 44
            .Visible = msoTrue
            .Solid
            .Transparency = 0
        End With
    End With
    xRg.Select
    Application.ScreenUpdating = True
    Set xRg = Nothing
End Sub
Kopyala

3. Bu kod penceresini kaydedip kapatın 4. Artık bir hücre seçildiğinde veya tıklandığında, hücreler otomatik olarak bir resim gibi büyüyecektir 4.

If Selection.Count > 1 Then Exit Sub