Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe foto vergroten of verkleinen met één klik in Excel?

Stel dat er meerdere afbeeldingen op een blad zijn met verschillende formaten. Heeft u manieren om deze foto's met één klik in één formaat te vergroten of verkleinen? Er is geen ingebouwde functie om het op te lossen, maar in dit artikel introduceer ik een VBA-code om alle afbeeldingen in het blad met één klik te vergroten of verkleinen.

Vergroot en verkleint foto's met één klik op VBA

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel brengt 300 geavanceerde functies naar Excel en verhoogt uw productiviteit met 80%
  • Auto-tekst: Maak uw favoriete grafieken, afbeeldingen, cellen, complexe formules en hergebruiken ze snel in de toekomst.
  • Meer dan 20-tekstfuncties: Nummer uit tekststring halen; Een deel van de tekst extraheren of verwijderen; Nummers en valuta's omzetten in Engelse woorden ...
  • Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen en gegevens bewaren; Dubbele rijen en som samenvoegen ...
  • Split gereedschap: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen ...
  • Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Maak een verzendlijst en Verzend e-mails op waarde van Cell...
  • Super filter: Maak geavanceerde filterschema's en pas deze toe op alle bladen; Soort per week, dag, frequentie en meer; filters door vetgedrukt, formules, commentaar ...
  • Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig inzetbaar in bedrijf; Volledige functionaliteit 60-daagse gratis proefversie.

pijl blauwe rechterbel Vergroot en verkleint foto's met één klik op VBA


Voer de onderstaande stappen uit om afbeeldingen met één klik te vergroten of verkleinen.

1. Klik met de rechtermuisknop op de bladtab waar u de grootte van de afbeeldingen wilt wijzigen en selecteer Bekijk code van contextmenu.
doc afbeelding vergroten met één klik 1

2. In de knallen Microsoft Visual Basic voor toepassings venster en plak onderstaande code in het lege script.

VBA: afbeeldingen vergroten en verkleinen met één klik

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 afbeelding vergroten met één klik 2

3. Sla de code op en sluit het venster. En als u op een cel in kolom A klikt, worden alle afbeeldingen verkleind. Zie screenshot:
doc afbeelding vergroten met één klik 3

4. En wanneer u op de cel klikt, rechts bovenaan de foto, wordt de relatieve afbeelding vergroot. Zie screenshot:
doc afbeelding vergroten met één klik 4

Tip.Als je snel een watermerk in een blad wilt invoegen, probeer dan de Kutools voor Excel's te gebruiken Plaats watermerk zoals getoond in de volgende screenshot. Het is volledig functioneel zonder beperking in 60-dagen, download en heb nu een gratis proefversie.

doc voeg watermerk in

Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Werkt met Office 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
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 · 1 years 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 · 11 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 · 11 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.