Ինչպե՞ս արտահանել գծապատկերները գրաֆիկայի մեջ Excel- ում:

Excel- ում երբեմն կարող եք տվյալներից որոշ գծապատկերներ ստեղծել, որպեսզի տվյալներն ավելի տեսողական և ուղիղ տեսք ունենան: Եթե ​​ցանկանում եք պահպանել կամ արտահանել գծապատկերները գրաֆիկայի ինչ-որ նպատակով, ինչպե՞ս կարող եք անել:

Արտահանեք գծապատկեր VBA կոդով գծապատկերին

Excel- ի համար Kutools- ի միջոցով արտահանեք բազմաթիվ գծապատկերներ / նկարներ / ձևեր գրաֆիկայի մեջ

Արտահանեք գծապատկեր VBA կոդով գծապատկերին

Հետևյալ VBA կոդը կարող է օգնել ձեզ արտահանել ընտրված գծապատկերը ակտիվ աշխատանքային թերթից որպես նկար: Եվ նկարը կպահվի նույն տեղում, ինչ ձեր կիրառած աշխատանքային գրքույկն է: Կատարեք հետևյալ կերպ.

1, Ընտրեք գծապատկերը, որը ցանկանում եք արտահանել:

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

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

VBA. Արտահանեք գծապատկեր գրաֆիկական

Option Explicit
Sub ExportChart()
Const sSlash$ = "/"
Const sPicType$ = ".gif"
Dim sChartName$
Dim sPath$
Dim sBook$
Dim objChart As ChartObject
On Error Resume Next
Set objChart = ActiveSheet.ChartObjects(1)
If objChart Is Nothing Then
MsgBox "No charts have been detected on this sheet", 0
Exit Sub
End If
If ActiveChart Is Nothing Then
MsgBox "You must select a single chart for exporting ", 0
Exit Sub
End If
Start:
sChartName = Application.InputBox("Please Specify a name for the exported chart" & vbCr & _
"There is no default name available" & vbCr & _
"The chart will be saved in the same folder as this file", "Chart Export", "")
If sChartName = Empty Then
MsgBox "You have not entered a name for this chart", , "Invalid Entry"
Goto Start
End If
If sChartName = "False" Then
Exit Sub
End If
sBook = ActiveWorkbook.Path
sPath = sBook & sSlash & sChartName & sPicType
ActiveChart.Export Filename:=sPath, FilterName:="GIF"
End Sub

4, Դրանից հետո սեղմեք F5 ստեղն ՝ այս կոդը գործարկելու համար, և արագ տուփում մուտքագրեք արտահանվող գծապատկերի անունը, տես նկարի նկարը.

5. Եվ այնուհետեւ կտտացրեք OK, ընտրված գծապատկերը արտահանվել է դեպի gif ձևաչափը և պահպանվել է նույն վայրում, ինչ բուն ֆայլը: Տեսեք,

Վերոնշյալ VBA կոդով դուք կարող եք միաժամանակ արտահանել միայն մեկ գծապատկեր, եթե ցանկանում եք այլ գծապատկերներ արտահանել, նախ ընտրեք այլ գծապատկեր, այնուհետև այն արտահանեք ծածկագրով:

Excel- ի համար Kutools- ի միջոցով արտահանեք բազմաթիվ գծապատկերներ / նկարներ / ձևեր գրաֆիկայի մեջ

Excel- ի համար նախատեսված գործիքներ'S Արտահանել գրաֆիկա օգտակար ծրագիրը կարող է միանգամից արտահանել բազմաթիվ գծապատկերներ, նկարներ կամ ձևեր Excel- ում:

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև :(Անվճար ներբեռնեք Kutools- ի համար Excel- ը հիմա!)

1: Սեղմեք Kutools Plus > Ներմուծման արտահանման > Արտահանել գրաֆիկա, տես նկարի նկարը.

2, Մեջ Արտահանել գրաֆիկա երկխոսության տուփ, բոլորը տրամագրերը, լուսանկարները և ձեւավորում նշված են ձախ ցուցակի վանդակում, նշեք այն տեսակը, որը ցանկանում եք արտահանել, ապա կտտացրեք  արտահանվող գրաֆիկան պահպանելու համար գրացուցակ նշելու կոճակը, միևնույն ժամանակ, դուք կարող եք ընտրել նկարների ձևաչափը Արտահանման ձևաչափից, ինչպես ձեզ հարկավոր է, GIF, JPEG, TIF or PNG.

3. Այնուհետեւ կտտացրեք OK, բոլոր գծապատկերները, նկարներն ու ձևերը հաջողությամբ արտահանվել են նշված վայր: Տեսեք սքրինշոթերը.

;

Խնդրում ենք սեղմել Արտահանել գրաֆիկա ավելին իմանալ այս հատկության մասին:

  Արտահանել գրաֆիկա

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