Ինչպե՞ս 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-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: