Přejít k hlavnímu obsahu

 Jak zvětšit nebo zmenšit obrázek jedním kliknutím v aplikaci Excel?

Předpokládejme, že na listu je více obrázků, které jsou v různých velikostech. Máte nějaké způsoby, jak tyto obrázky zvětšit nebo zmenšit v jedné velikosti jedním kliknutím? Neexistuje žádná vestavěná funkce, která by to vyřešila, ale v tomto článku představuji kód VBA pro zvětšení nebo zmenšení všech obrázků v listu jedním kliknutím.

Zvětšujte a zmenšujte obrázky jedním kliknutím pomocí VBA


šipka modrá pravá bublina Zvětšujte a zmenšujte obrázky jedním kliknutím pomocí VBA

Chcete-li zvětšit nebo zmenšit obrázky jedním kliknutím, proveďte níže uvedené kroky.

1. Klikněte pravým tlačítkem na záložku listu, kde chcete změnit velikost obrázků, a vyberte Zobrazit kód z kontextového menu.
doc zvětšit obrázek jedním kliknutím 1

2. V praskání Microsoft Visual Basic pro aplikacis a vložte pod kód do prázdného skriptu.

VBA: Zvětšujte a zmenšujte obrázky jedním kliknutím

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 zvětšit obrázek jedním kliknutím 2

 

3. Uložte kód a zavřete okno. A když kliknete na kteroukoli buňku ve sloupci A, všechny obrázky se zmenší. Viz snímek obrazovky:
doc zvětšit obrázek jedním kliknutím 3

4. A když kliknete na buňku v pravé horní části obrázku, relativní obrázek se zvětší. Viz snímek obrazovky:
doc zvětšit obrázek jedním kliknutím 4

Spropitné.Pokud chcete rychle vložit vodoznak do listu, zkuste použít Kutools pro Excel Vložit vodoznak jak je znázorněno na následujícím snímku obrazovky. Je plně funkční bez omezení za 30 dní, prosím stáhněte si a získejte bezplatnou zkušební verzi hned teď.

doc vložte vodoznak

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

karta kte 201905


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you.
This comment was minimized by the moderator on the site
When I save as a Macro-Enabled workbook, close and then re-open, the image integrity has been lost.
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
Doesn't work
This comment was minimized by the moderator on the site
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.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations