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

Ինչպե՞ս Excel- ում նկարներ քաղել մեկնաբանություններից:

Excel- ում դուք կարող եք նկարը հնարավորինս հեշտությամբ ներմուծել մեկնաբանության մեջ, բայց երբևէ մտածե՞լ եք մեկնաբանության արկղերից պատկերները բջիջների կամ որոշակի պանակի մեջ հանել: Այս հոդվածում ես կխոսեմ այն ​​մասին, թե ինչպես կարելի է նկարները հանել մեկնաբանություններից:

Պատկերները արդյունահանեք և պահեք մեկնաբանություններից ՝ Save As գործառույթով պանակ

Պատկերները քաղեք մեկնաբանություններից VBA կոդով բջիջների մեջ


նետ կապույտ աջ պղպջակՊատկերները արդյունահանեք և պահեք մեկնաբանություններից ՝ Save As գործառույթով պանակ

Եթե ​​ցանկանում եք արդյունքները մեկնաբանությունից վերցնել և պահպանել թղթապանակ, արեք հետևյալը.

1, Պատճենեք թերթը, որը պարունակում է մեկնաբանություններ պատկերներով, որոնք ցանկանում եք պահպանել նոր դատարկ աշխատանքային գրքում:

փաստաթուղթ 1-ից նկար հանեք

2. Եվ այնուհետեւ կտտացրեք Ֆայլ > Պահել As այս նոր աշխատանքային գիրքը պահելու համար, ինչպես Web Page ձևաչափեք որոշակի պանակում, տես նկարի նկարը.

փաստաթուղթ 2-ից նկար հանեք

3. Այնուհետեւ կտտացրեք Փրկել ֆայլը պահելու կոճակը, ապա անցեք հատուկ թղթապանակ ՝ պահպանված պատկերները դիտելու համար, երկու ֆայլ ստեղծվում են թղթապանակում, մեկը html ֆայլն է, և մյուսը ՝ բոլոր պատկերները և այլ ֆայլերը պարունակող պանակ, տես նկարի նկարը.

փաստաթուղթ 3-ից նկար հանեք


նետ կապույտ աջ պղպջակՊատկերները քաղեք մեկնաբանություններից VBA կոդով բջիջների մեջ

Եթե ​​ցանկանում եք մեկնաբանություններից նկարները բջիջների մեջ հանել, ինչպես ցույց է տրված հետևյալ նկարը, այստեղ ես կարող եմ ձեզ համար ստեղծել VBA կոդ, խնդրում եմ արեք հետևյալ կերպ.

փաստաթուղթ 4-ից նկար հանեք

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներև տեղադրեք հետևյալ կոդը Մոդուլի պատուհանում:

VBA կոդ. Պատկերները հանել մեկնաբանություններից բջիջների մեջ.

Sub CommentPictures()
'Updateby Extendoffcie
    Dim cmt As Comment
    Dim xRg As Range
    Dim visBool As Boolean
    Dim cmtTxt As String
    Dim jpgPath As String
    Dim shpHeight As Integer, shpWidth As Integer
    Application.ScreenUpdating = False
    For Each cmt In ActiveSheet.Comments
        With cmt
            cmtTxt = .Text
            shpHeight = .Shape.Height
            shpWidth = .Shape.Width
            .Text Text:="" & Chr(10) & ""
            visBool = .Visible
            .Visible = True
            On Error Resume Next
            Set xRg = .Parent.Offset(0, 1)
            .Shape.CopyPicture _
              Appearance:=xlScreen, Format:=xlPicture
            xRg.PasteSpecial
            Selection.ShapeRange.LockAspectRatio = msoFalse
            Selection.Width = xRg.Width
            Selection.Height = xRg.Height
            .Visible = visBool
            .Text Text:=cmtTxt
        End With
    Next cmt
    Application.ScreenUpdating = True
End Sub

3, Դրանից հետո սեղմեք F5 այս կոդը գործարկելու բանալին, և ընթացիկ աշխատանքային թերթում մեկնաբանությունների բոլոր պատկերները արդյունահանվել են հաջորդ սյունակի բջիջներում, տե՛ս նկարը.

փաստաթուղթ 4-ից նկար հանեք


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (3)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն!! Ես նախկինում նկարներ էի տեղադրել փաստաթղթի մեկնաբանություններում, իսկ հետո ջնջել էի նկարները միայն այն բանի համար, որ ինչ-որ մեկը ինձանից միայն նկարների պատճենները խնդրեր: Սա շատ պարզ էր և փրկեց ինձ: Նորից շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,
Շատ հետաքրքիր գրառում. Շատ շնորհակալություն.

Բայց ես չեմ տեսնում, թե ինչպես օգտագործել այն նկարն օգտագործելու համար իմ CommandBar-ի կոճակի համար: Թույլ տուր բացատրեմ.

Ես ուզում եմ կիսվել իմ Excel թերթերով՝ առանց կոճակների համար առանձին պատկերներ ուղարկելու որպես jpg ֆայլեր (.Picture = LoadPicture (ImageFile):

Այսպիսով, ես ուզում եմ թաքցնել պատկերները որոշ թաքնված բջիջներում կամ որոշ մեկնաբանություններում:
Պատկերները թաքցնելու խնդիր չկա:
Բայց ինձ չի հաջողվում ստանալ դրանք հետագայում իմ կոճակները սկզբնավորելու համար:

Սրա համար որևէ գաղափար կա:


Շնորհակալություն ձեր ժամանակի համար:
Բրայս.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հա՜ Muchisimas gracias por el aporte. Tengo un problema, a veces funciona ya veces no extrae las fotos:
Առայժմ ոչ մի մեկնաբանություն չկա

Հետեւեք մեզ

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