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

Ինչպե՞ս մեծացնել պատկերը Excel- ում կտտացնելիս:

Ենթադրելով, որ դուք նկարների ցուցակ եք տեղադրել սյունակում և համապատասխանեցրել նկարների չափերը բջիջների չափերին, ինչպես ցույց է տրված նկարում: Քանի որ տեղադրված նկարը փոքր է թվում, գուցե անհրաժեշտ լինի այն մեծացնել որոշ նպատակներով: Այս հոդվածը ձեզ ցույց կտա նկարը ընդլայնելու մեթոդը, երբ կտտացնում եք այն Excel- ում, և երկրորդ կտտոցով վերականգնում եք սկզբնական չափը:

Մեծացրեք պատկերը, երբ կտտացրեք այն VBA կոդով


Մեծացրեք պատկերը, երբ կտտացրեք այն VBA կոդով

Հետևյալ VBA կոդը կարող է օգնել ձեզ ընդլայնել պատկերը Excel- ում կտտացնելիս: Խնդրում եմ, արեք հետևյալ կերպ.

1. Աջ կտտացրեք այն նկարին, որը դուք պետք է ընդլայնել, պարզապես կտտացնելով այն, ապա կտտացրեք Նշանակեք մակրո համատեքստային ընտրացանկից: Տեսեք,

2. Մեջ Նշանակեք մակրո երկխոսության տուփ, խնդրում ենք սեղմել նոր կոճակը:

3. Պատուհանման մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք պատճենել և կպցնել ներքևի VBA կոդը ՝ Sub և Վերջ Sub ծածկագրեր Տեսեք,

VBA կոդ. Ընդլայնել պատկերը, կտտացնելով այն 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

ՆշումԿոդում կարող եք նկարի մեծ չափերը նշանակել մեծ = 3 ծածկագրում:

4. Այնուհետեւ սեղմեք ալտ + Q ստեղները միաժամանակ փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

Այսուհետ, կտտացնելով նկարը, այն կտարածվի ձեր կողմից նշված չափի, և այն կրկին կտտացրեք, կվերականգնվի սկզբնական չափի, ինչպես ցույց է տրված նկարների ներքո:


Առնչվող հոդվածներ:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (9)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Maravilloso funciona perfecto!!!.
Hay forma que la imagen quede en el cento de la pantalla, solo es una Oncesion, nada mas, la macro anda muy bien.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս կոդը լավ է աշխատում
Բայց երբ երկրորդ անգամ բացում եք աշխատանքային գրքույկը, պատկերները դուրս են գալիս մշուշոտ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
երբ տեղադրեք կոդը և սեղմեք պահպանել, նկարներն ավելի ու ավելի փոքրանում են... հիանալի գաղափար է, բայց չի աշխատում, վախենում եմ...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա այն է, ինչ ես փնտրում եմ, բայց այն չի աշխատի իմ excel 2016-ի հետ: Ես սխալի հաղորդագրություն եմ ստանում Application.caller = Error 2023
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ես փորձում եմ փոփոխել մեծ (1) և փոքր (0.1) արժեքները, բայց մակրոն ճիշտ չի աշխատում: Որոշ սեղմելուց հետո նկարը չի փոխվում :(
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մակրոն աշխատում է, խնդիրն այն է, որ երբ մակրոյում նկարի չափը փոխես, եթե 1-ից ներքև անցնես և պահպանես, նկարը կկորցնի իր որակը :(
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես գիտեմ, որ jpg-ը կորցնում է որակը ամեն անգամ, երբ պահպանվում է: Այդ իսկ պատճառով օգտատերերին խորհուրդ է տրվում պահպանել նոր ֆայլի անվան մեջ: Սա կարող է լինել պատճառը, որ մարդիկ, ովքեր փորձում են օգտագործել այս մակրոները, հայտնվում են մշուշոտ նկարներով: Ավելի լավ մոտեցում կլիներ ունենալ երկու նկար՝ նույն լուսանկարի մեծ և փոքր: Փոքրը տեղադրվում է խցում, մեծը՝ մեկ այլ թերթիկի, նույն ֆայլի մեջ։ Այնուհետև օգտագործեք կոդը՝ մեծ նկարը ցույց տալու համար, երբ փոքր նկարը սեղմվում է կամ սավառնում է դրա վրա: Այս կերպ. նկարներից ոչ մեկը չի չափափոխվում և, հետևաբար, չպետք է կորցնի որակը: Ես վստահ չեմ, որ Kutools-ն ի վիճակի է դա անել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Չի աշխատում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Lösung zu verpixelte Bilder
Ich hatte dasselbe Problem mit den verpixelten Bildern. Du musst 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
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից