如何把excel表格内

1.如何在excel表格中插入图片

方法：

1、打开EXCEL表格，点击“插入”--图片。

2、浏览本地图片，并插入后EXCEL表格中，调整大小 即可。

2.怎么样让excel里的图片链接直接显示出来,

本身的功能和函数都不行。

要做只能写程序，现成的是MFC+VB做的，如下： #import "G:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL " #import "G:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB " #import "G:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE " rename( "RGB ", "ExcelRGB ") rename( "Delete ", "ExcelDelete ") rename( "DialogBox ", "ExcelDialogBox ") void Cexcel_picDlg::OnBnClickedOk() { // insert picture to excel // environment: vc2003, excel2003, windows2003 using namespace Excel; _variant_t covOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR); DWORD dwStartTime = GetTickCount(); _ApplicationPtr app;//( "Excel.Application "); HRESULT hr = S_OK; CLSID clsid; CLSIDFromProgID(L "Excel.Application ", &clsid); app.CreateInstance(clsid); WorkbooksPtr books; _WorkbookPtr book; long lcid =LOCALE_USER_DEFAULT; SheetsPtr sheets; app-> get_Workbooks(&books); book = books-> Add(covOptional,lcid/*,&book*/); book-> get_Worksheets(&sheets); IDispatchPtr pDisp; sheets-> get_Item(_variant_t((short)1),&pDisp); _WorksheetPtr sheet(pDisp); RangePtr range = sheet-> GetRange(_variant_t( "A1 "),_variant_t( "A1 ")); range-> Value2 = "aaa "; LPCSTR m_Path = _T( "C:\\flower8.jpg "); PicturesPtr pics = sheet-> Pictures(); pics-> Insert(m_Path,VARIANT_FALSE); app-> put_AskToUpdateLinks(lcid,VARIANT_FALSE); app-> put_(lcid,VARIANT_FALSE); app-> put_UserControl(VARIANT_FALSE); app-> put_DisplayAlerts(0,VARIANT_FALSE); LPCTSTR file_name = _T( "c:\\aa.xls "); _variant_t varfilename(file_name); DeleteFile(file_name); HRESULT hrMethod = book-> SaveAs(varfilename,covOptional,covOptional,covOptional,covOptional,covOptional,xlNoChange); book-> put_Saved(0,VARIANT_TRUE); book-> Close(COleVariant(VARIANT_FALSE)); books-> Close(); app-> Quit(); }。

3.如何把excel里的折线图另存为图片

推荐如下几种方法：

方法一：

1、复制图表>；选择性粘贴在本文档中>；选择图片

2、关闭文档

3、更改文档扩展名为rar

4、打开rar文件（左键点击）>xl>media，找到图片

方法二：

1、复制图表>；选择性粘贴在word或ppt中>；选择图片

2、右键，另存为图片

方法三：

使用宏导出图片。“图表 1”是图表名称，点击后可在左上角看到名称。

1、Alt+F11，打开编辑框

2、粘贴如下代码

3、F5运行

1

2

3

4

5

6

7

SubTest()

Dimmy_Sheet AsWorksheet

Dimmy_Chart AsChartObject

Setmy_Sheet = Worksheets(1)

Setmy_Chart = my_Sheet.ChartObjects（"图表 1"）

my_Chart.Chart.Export ThisWorkbook.Path & "\"& "图片.jpg", FilterName:="jpg"

EndSub

也可直接在快速运行栏，输入如下代码。

1、Alt+F11,Ctrl+G打开编辑框

2、粘贴如下代码

3、回车

1

ActiveSheet.ChartObjects（"图表 1"）.Chart.Export ThisWorkbook.Path &"\" & "图片.jpg",FilterName:="jpg"