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

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

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

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

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

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

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

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

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

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

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

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 այս կոդը գործարկելու բանալին, և ընթացիկ աշխատանքային թերթում մեկնաբանությունների բոլոր պատկերները արդյունահանվել են հաջորդ սյունակի բջիջներում, տե՛ս նկարը.

---

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

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

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

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

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

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...