How to enlarge or shrink picture with one click in Excel?

Supposing there are multiple pictures in a sheet which are in different sizes. Do you have any ways to enlarge or shrink these pictures in one size with one click? There is no built-in feature to solve it, but in this article, I introduce a VBA code to enlarge or shrink all pictures in the sheet with one click.

Enlarge and shrink pictures with one click by VBA

Enlarge and shrink pictures with one click by VBA

Amazing! Using Efficient Tabs in Excel Like Chrome, Firefox and Safari!

Save 50% of your time, and reduce thousands of mouse clicks for you every day!

Do as below steps to enlarge or shrink pictures with one click.

1. Right click at the sheet tab where you want to resize the pictures, and select View Code from context menu.

2. In the popping Microsoft Visual Basic for Applications window, and paste below code to the blank script.

VBA: Enlarge and shrink pictures with one click

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyEntendoffice20161111
    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

3. Save the code and close the window. And when you click at any cell of column A, all pictures will be shrunk. See screenshot:

4. And when you click at the cell which at the right top of the picture, the relative picture will be enlarged. See screenshot:

Tip.If you want to quickly insert watermark in a sheet, please try to use the Kutools for Excel’s Insert Watermark as shown in the following screenshot. It’s full function without limitation in 60 days, please download and have a free trial now.

Recommended Productivity Tools for Excel

Kutools for Excel Helps You Always Finish Work Ahead of Time, and Stand Out From Crowd

• More than 300 powerful advanced features, designed for 1500 work scenarios, increasing productivity by 70%, give you more time to take care of family and enjoy life.
• No longer need memorizing formulas and VBA codes, give your brain a rest from now on.
• Become an Excel expert in 3 minutes, Complicated and repeated operations can be done in seconds, 
• Reduce thousands of keyboard & mouse operations every day, say goodbye to occupational diseases now.
• 110,000 highly effective people and 300+ world-renowned companies' choice.
• 60-day full features free trial. 60-day money back guarantees. 2 years of free upgrade and support.

Read More       Download Now       Purchase

---

Brings Tabbed Browsing and Editing to Microsoft Office, Far More Powerful Than The Browser's Tabs

• Office Tab is designed for Word, Excel, PowerPoint and Other Office Applications: Publisher, Access, Visio and Project.
• Open and create multiple documents in new tabs of the same window, rather than in new windows.
• Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!

Read More       Download Now       Purchase