Note: The other languages of the website are Google-translated. Back to English

Cum să măriți imaginea când faceți clic pe ea în Excel?

Presupunând că ați inserat o listă de imagini într-o coloană și că ați asortat dimensiunile imaginii cu dimensiunile celulei, așa cum este prezentat mai jos. Deoarece imaginea inserată pare mică, poate fi necesar să o măriți în anumite scopuri. Acest articol vă va arăta metoda de mărire a imaginii atunci când faceți clic pe ea în Excel și de recuperare la dimensiunea originală cu al doilea clic.

Măriți imaginea când faceți clic pe ea cu codul VBA


Măriți imaginea când faceți clic pe ea cu codul VBA

Următorul cod VBA vă poate ajuta să măriți o imagine atunci când faceți clic pe ea în Excel. Vă rugăm să faceți următoarele.

1. Faceți clic dreapta pe imaginea pe care trebuie să o măriți făcând clic pe ea, apoi faceți clic pe Atribuiți macro din meniul contextual. Vedeți captura de ecran:

2. În Atribuiți macro caseta de dialog, faceți clic pe Nou butonul.

3. În fereastra pop-up Microsoft Visual Basic pentru aplicații fereastra, copiați și lipiți codul VBA de mai jos între Sub și End Sub coduri. Vedeți captura de ecran:

Cod VBA: măriți imaginea făcând clic pe ea în Excel

Dim shp As Shape
    Dim big As Single, small As Single
    Dim shpDouH As Double, shpDouOriH As Double
    big = 3   
    small = 1 
    On Error Resume Next
    Set shp = ActiveSheet.Shapes(Application.Caller)
    With shp
        shpDouH = .Height
        .ScaleHeight 1, msoTrue, msoScaleFromTopLeft
        shpDouOriH = .Height
    
        If Round(shpDouH / shpDouOriH, 2) = big Then
            .ScaleHeight small, msoTrue, msoScaleFromTopLeft
            .ScaleWidth small, msoTrue, msoScaleFromTopLeft
            .ZOrder msoSendToBack
        Else
            .ScaleHeight big, msoTrue, msoScaleFromTopLeft
            .ScaleWidth big, msoTrue, msoScaleFromTopLeft
            .ZOrder msoBringToFront
        End If
    End With

notițe: În cod, puteți atribui dimensiunile mari ale imaginii în codul mare = 3.

4. Apoi apăsați pe Alt + Q tastele simultan pentru a închide Microsoft Visual Basic pentru aplicații fereastră.

De acum înainte, când faceți clic pe imagine, aceasta va fi mărită la dimensiunea pe care ați specificat-o și faceți clic pe ea din nou pentru a reveni la dimensiunea originală, așa cum se arată mai jos.


Articole pe aceeași temă:


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (9)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Maravilloso functioneaza perfect!!!.
Hay forma que la imagine quede en el cento de la pantalla, solo este una oncesion, nada mas, la macro anda muy bien
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest cod funcționează bine
Dar când deschideți a doua oară registrul de lucru, imaginile ies neclare
Acest comentariu a fost redus la minimum de moderatorul de pe site
când ați introdus codul și apăsați pe salvare pozele devin din ce în ce mai mici... idee grozavă, dar nu funcționează, mă tem...
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acesta este ceea ce caut, dar nu va funcționa cu Excel 2016. Primesc un mesaj de eroare Application.caller = Error 2023
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună ziua, încerc să modific valorile mari (1) și mici (0.1), dar macro-ul nu funcționează corect. Dupa cateva click imaginea nu se modifica :(
Acest comentariu a fost redus la minimum de moderatorul de pe site
Macro-ul funcționează, problema este că atunci când redimensionați imaginea din macro, dacă mergeți mai jos de 1 și salvați, imaginea își va pierde calitatea :(
Acest comentariu a fost redus la minimum de moderatorul de pe site
Știu că un jpg își pierde calitatea de fiecare dată când este salvat. De aceea, utilizatorii sunt sfătuiți să salveze într-un nou nume de fișier. Acesta ar putea fi motivul pentru care oamenii care încearcă să folosească această macrocomandă ajung să aibă imagini neclare. O abordare mai bună ar fi să aveți două imagini - una mare și una mică cu aceeași fotografie. Micul este plasat în celulă, cel mare într-o altă foaie, același fișier. Apoi utilizați codul pentru a afișa imaginea mare atunci când se face clic pe imaginea mică sau se trece cu mouse-ul deasupra. Pe aici. nicio imagine nu este redimensionată și, prin urmare, nu ar trebui să-și piardă calitatea. Nu sunt sigur că Kutools este capabil să facă asta.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Nu funcționează
Acest comentariu a fost redus la minimum de moderatorul de pe site
Lösung zu verpixelte Bilder
Ich hatte dasselbe Problem mit den verpixelten Bildern. Du must in den Einstellungen etwas ändern und zwar:
Unter Datei/Optionen/Erweitert unter dem Punkt "Bildgröße und -Qualität" einen Hacken bei "Bilder nicht in Datei komprimieren" setzen. Dann zeigt es die Bilder nicht mehr verpixelt an. LG
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL