Note: The other languages of the website are Google-translated. Back to English
Մուտք  \/ 
x
or
x
Գրանցում  \/ 
x

or

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

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

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

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


Արտահանեք գծապատկեր 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 ստեղն ՝ այս կոդը գործարկելու համար, և արագ տուփում մուտքագրեք արտահանվող գծապատկերի անունը, տես նկարի նկարը.

doc- արտահանման-գծապատկերներ 1

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

doc- արտահանման-գծապատկերներ 2

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


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

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

Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: 

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

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

փաստաթղթերի արտահանման գծապատկերներ 7

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

doc- արտահանման-գծապատկերներ 4

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

doc- արտահանման-գծապատկերներ 5
;-1
doc- արտահանման-գծապատկերներ 6


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

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

Արտահանեք տեսականին ֆայլ

փաստաթղթերի արտահանման բջիջների տիրույթը

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

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

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

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50% -ով և նվազեցնում է ձեզ համար ամեն օր մկնիկի հարյուրավոր կտտոցներ:
officetab ներքևում
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Paul001 · 6 years ago
    Hi,

    I installed your addin and opened my excel and followed your tutorial.
    The export graphics button only brought up a small message box with no description. It did not bring up
    the Export Graphics dialog box.

    I have Excel 2007. If you can let me know why it is not working, really appreciate it.

    How to export charts to graphics in Excel?
    http://www.extendoffice.com/documents/excel/1151-excel-export-chart-to-image.html#a2

    Paul
    • To post as a guest, your comment is unpublished.
      admin_jay · 6 years ago
      [quote name="Paul001"]Hi,

      I installed your addin and opened my excel and followed your tutorial.
      The export graphics button only brought up a small message box with no description. It did not bring up
      the Export Graphics dialog box.

      I have Excel 2007. If you can let me know why it is not working, really appreciate it.

      How to export charts to graphics in Excel?
      http://www.extendoffice.com/documents/excel/1151-excel-export-chart-to-image.html#a2

      Paul[/quote]
      Hello, Please try to uninstall the Kutools for Excel from your Control Panel first.

      And then go to download and install the software from http://www.extendoffice.com/download/kutools-for-excel.html

      If the problem persists, please try to contact me at jaychivo#extendoffice.com. Please replace # with @.