• VBA kodu 3. Resimleri tek tıklamayla büyütmek veya küçültmek için bir VBA kodu kullanılabilir 3. Bunun için, resimleri yeniden boyutlandırmak istenen çalışma sayfası sekmesine sağ tıklanıp "Kod Görünümü" bağlam menüsünden "Microsoft Visual Basic for Applications" penceresi açılabilir 3. Ardından, boş bir betiğe aşağıdaki kod yapıştırılabilir 3:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Application.ScreenUpdating = False
   Dim xRg As Range, sPic As Shape
   For Each sPic In ActiveSheet.Shapes
       If Target.Column > 1 Then
           Set xRg = Target.Offset(, -1)
           With sPic
               If TypeName(.OLEFormat.Object) = "Picture" Then
                   If .TopLeftCell.Address = xRg.Address Then
                       .Height = 350
                       .Width = 250
                   End If
               End If
           End With
       ElseIf Target.Column = 1 Then
           With sPic
               If TypeName(.OLEFormat.Object) = "Picture" Then
                   .Height = 60
                   .Width = 60
               End If
           End With
       End If
   Next sPic
   Application.ScreenUpdating = True
End Sub
Kopyala

• Boyutlandırma tutamaçları 1. Resmin (veya şeklin) boyutunu uzatmak, küçültmek veya değiştirmek için boyutlandırma tutamaçları kullanılabilir 1.
• Çizim Araçları Biçim sekmesi 1. Çizim Araçları Biçim sekmesinin Boyut grubunda Yükseklik ve Genişlik kutularına istenen ölçüler girilerek resim, şekil veya WordArt yeniden boyutlandırılabilir 1.