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

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

Ենթադրելով, որ թերթում կան բազմաթիվ նկարներ, որոնք տարբեր չափերի են: Ունե՞ք որևէ եղանակ `մեկ կտտոցով մեծացնելու կամ փոքրացնելու այս նկարները: Այն լուծելու համար ներկառուցված առանձնահատկություն չկա, բայց այս հոդվածում ես ներմուծում եմ VBA կոդ ՝ մեկ կտտոցով թերթի բոլոր նկարները մեծացնելու կամ փոքրացնելու համար:

VBA- ի կողմից մեկ կտտոցով մեծացրեք և փոքրացրեք նկարները


նետ կապույտ աջ պղպջակ VBA- ի կողմից մեկ կտտոցով մեծացրեք և փոքրացրեք նկարները

Կատարեք ստորև նշված քայլերը ՝ մեկ կտտոցով նկարները մեծացնելու կամ նեղացնելու համար:

1. Աջ կտտացրեք թերթիկի ներդիրին, որտեղ ցանկանում եք չափափոխել նկարները և ընտրել Դիտել կոդը համատեքստային ընտրացանկից:
փաստաթուղթ ընդլայնել նկարը մեկ կտտոցով 1

2. Բռնում Microsoft Visual Basic կիրառման համարպատուհանը և ներքևի կոդը տեղադրեք դատարկ գրությանը:

VBA. Մեկ կտտոցով մեծացրեք և փոքրացրեք նկարները

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
փաստաթուղթ ընդլայնել նկարը մեկ կտտոցով 2

 

3. Պահպանեք կոդը և փակեք պատուհանը: Եվ երբ կտտացնում եք A սյունակի ցանկացած բջիջ, բոլոր նկարները կկրճատվեն: Տեսեք,
փաստաթուղթ ընդլայնել նկարը մեկ կտտոցով 3

4. Եվ երբ կտտացնում եք նկարի աջ վերևում գտնվող բջիջին, հարաբերական նկարը կմեծանա: Տեսեք,
փաստաթուղթ ընդլայնել նկարը մեկ կտտոցով 4

ՀուշումԵթե ​​ցանկանում եք ջրի մակարդակի նշագիծ արագ տեղադրել թերթիկի մեջ, փորձեք օգտագործել Excel- ի համար նախատեսված Kutools- ը Տեղադրեք ջրանիշը ինչպես ցույց է տրված հետևյալ նկարում Դա լիարժեք գործառույթ է ՝ առանց սահմանափակումների 30 օրեր, խնդրում ենք ներբեռնել և անվճար փորձաշրջան անցնել հիմա:

դոկ ներդիր ջրի մակարդակի նշագիծ

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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (5)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Չի աշխատում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կներեք, ես չգիտեի, թե ինչու դա չի աշխատում ձեր դեպքում, բայց մինչ այս ձեռնարկն իրականացնելը, ես այն մի քանի անգամ փորձարկել եմ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Երբ ես պահում եմ որպես մակրո-միացված աշխատանքային գրքույկ, փակում և նորից բացում, պատկերի ամբողջականությունը կորչում է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձարկել եմ դա՝ աշխատանքային գրքույկը որպես մակրո-միացվող աշխատանքային գրքույկ պահելու համար, նորից բացեք մակրո-միացնել աշխատանքային գրքույկը, պատկերը դեռ այնտեղ է, և կոդը նույնպես կարող է աշխատել: Միգուցե փորձեք պահպանել աշխատանքային գրքույկը, նախքան այն պահելը որպես մակրո-միացնել աշխատանքային գրքույկ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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