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

Sut i ehangu'r ddelwedd wrth glicio arni yn Excel?

Gan dybio eich bod wedi mewnosod rhestr o luniau mewn colofn ac wedi paru maint y lluniau â'r meintiau celloedd fel y dangosir isod y screenshot. Gan fod y llun a fewnosodwyd yn edrych yn fach, efallai y bydd angen i chi ei ehangu at rai dibenion. Bydd yr erthygl hon yn dangos dull i chi o ehangu llun wrth glicio arno yn Excel, ac adfer i'r maint gwreiddiol erbyn yr ail glic.

Ehangu'r ddelwedd wrth glicio arni gyda chod VBA


Ehangu'r ddelwedd wrth glicio arni gyda chod VBA


Gall y cod VBA canlynol eich helpu i ehangu delwedd wrth glicio arno yn Excel. Gwnewch fel a ganlyn.

1. De-gliciwch y llun y mae angen i chi ei ehangu trwy glicio arno, yna cliciwch Neilltuo Macro o'r ddewislen cyd-destun. Gweler y screenshot:

2. Yn y Neilltuo Macro blwch deialog, cliciwch y Newydd botwm.

3. Yn y popping up Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod VBA isod rhwng y is ac Is-End codau. Gweler y screenshot:

Cod VBA: Ehangu'r ddelwedd trwy glicio arno yn 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

Nodyn: Yn y cod, gallwch chi neilltuo meintiau mawr y llun yn y cod mawr = 3.

4. Yna pwyswch y Alt + Q allweddi ar yr un pryd i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

O hyn ymlaen, wrth glicio ar y llun, bydd yn cael ei ehangu i'r maint a nodwyd gennych, a bydd ei glicio eto yn adfer i'r maint gwreiddiol fel isod sgrinluniau a ddangosir.


Erthyglau perthnasol:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (9)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Swyddogaeth Maravilloso perffaith !!!.
Hay forma que la imagen quede en el cento de la pantalla, unawd una unwaith, nada mas, la macro anda muy bien
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod hwn yn gweithio'n dda
Ond pan fyddwch chi'n agor y llyfr gwaith yr eildro, mae'r delweddau'n dod allan yn niwlog
Lleihawyd y sylw hwn gan y safonwr ar y wefan
pan fyddwch wedi mewnosod y cod a phwyso arbed, mae'r lluniau'n mynd yn llai ac yn llai ... syniad gwych ond nid yw'n gweithio mae gen i ofn ...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dyma beth rydw i'n edrych amdano ond ni fydd yn gweithio gyda fy excel 2016. Rwy'n cael neges gwall Application.caller = Gwall 2023
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwy'n ceisio addasu'r gwerthoedd mawr (1) a bach (0.1) ond nid yw'r macro yn gweithio'n iawn. Ar ôl peth clicio nid yw'r llun yn addasu :(
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r Macro yn gweithio, y broblem yw pan fyddwch chi'n newid maint y llun yn y macro, os ewch chi o dan 1, ac arbed, bydd y llun yn colli ei ansawdd :(
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwn fod jpg yn colli ansawdd bob tro y caiff ei arbed. Dyna pam y cynghorir defnyddwyr i gadw i enw ffeil newydd. Efallai mai dyma pam mae pobl sy'n ceisio defnyddio'r macro hwn yn cael lluniau aneglur yn y pen draw. Dull gwell fyddai cael dau lun - mawr a bach o'r un llun. Rhoddir y bach yn y gell, y mawr mewn dalen wahanol, yr un ffeil. Yna defnyddiwch god i ddangos y llun mawr pan fydd y llun bach naill ai'n cael ei glicio neu'n hofran drosodd. Y ffordd hon. nid yw'r naill lun na'r llall yn cael ei newid maint ac felly ni ddylai golli ansawdd. Nid wyf yn siŵr a all Kutools wneud hyn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ddim yn gweithio
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Lösung zu verpixelte Bilder
Ich hatte dasselbe Problem mit den verpixelten Bildern. Rhaid i Du yn ffau 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
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir