Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

 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


arrow blue right bubble Enlarge and shrink pictures with one click by VBA


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.
doc enlarge picture one click 1

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
doc enlarge picture one click 2

 

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:
doc enlarge picture one click 3

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

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.

doc insert watermark

Recommended Productivity Tools for Excel

kte tab 201905

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.

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!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    User · 10 months ago
    When I save as a Macro-Enabled workbook, close and then re-open, the image integrity has been lost.
    • To post as a guest, your comment is unpublished.
      Sunny · 9 months ago
      I have tested that to save the workbook as macro-enable workbook, reopen the macro-enable workbook, the image is still there, and the code can work as well. Maybe try to save the workbook before you saving it as macro-enable workbook.
  • To post as a guest, your comment is unpublished.
    User · 1 years ago
    Doesn't work
    • To post as a guest, your comment is unpublished.
      Sunny · 9 months ago
      Sorry, I did not know why it does not work in your case, but before carrying out this tutorial, I have tested it several times.