1、打开excel，找到想要做成趋势图的数据。一般数据都会有一列日期，这样可以看到各时段的趋势和数据。

2、用鼠标选中需要体现在趋势图里的两列内容。

3、点击菜单栏的“图表”——“折线图”——一般选二维折线图的“折线图”。

4、选中“折线图”后，就可以在当前页面自动生成折线图了。

以前用过，保存了一个函数如下：

private void CreateChart(Excel_Workbook m_Book,Excel_Worksheet m_Sheet,int num)

{

ExcelRange oResizeRange;

ExcelSeries oSeries;

m_BookChartsAdd(MissingValue, MissingValue, 1, MissingValue);

m_BookActiveChartChartType = ExcelXlChartTypexlLine;//设置图形

//设置数据取值范围

m_BookActiveChartSetSourceData(m_Sheetget_Range("A2", "C" + numToString()), ExcelXlRowColxlColumns);

//m_BookActiveChartLocation(ExcelXlChartLocationxlLocationAutomatic, title);

//以下是给图表放在指定位置

m_BookActiveChartLocation(ExcelXlChartLocationxlLocationAsObject, m_SheetName);

oResizeRange = (ExcelRange)m_SheetRowsget_Item(10, MissingValue);

m_SheetShapesItem("Chart 1")Top = (float)(double)oResizeRangeTop; //调图表的位置上边距

oResizeRange = (ExcelRange)m_SheetColumnsget_Item(6, MissingValue); //调图表的位置左边距

// m_SheetShapesItem("Chart 1")Left = (float)(double)oResizeRangeLeft;

m_SheetShapesItem("Chart 1")Width = 400; //调图表的宽度

m_SheetShapesItem("Chart 1")Height = 250; //调图表的高度

m_BookActiveChartPlotAreaInteriorColorIndex = 19; //设置绘图区的背景色

m_BookActiveChartPlotAreaBorderLineStyle = ExcelXlLineStylexlLineStyleNone;//设置绘图区边框线条

m_BookActiveChartPlotAreaWidth = 400; //设置绘图区宽度

//m_BookActiveChartChartAreaInteriorColorIndex = 10; //设置整个图表的背影颜色

//m_BookActiveChartChartAreaBorderColorIndex = 8;// 设置整个图表的边框颜色

m_BookActiveChartChartAreaBorderLineStyle = ExcelXlLineStylexlLineStyleNone;//设置边框线条

m_BookActiveChartHasDataTable = false;

//设置Legend图例的位置和格式

m_BookActiveChartLegendTop = 2000; //具体设置图例的上边距

m_BookActiveChartLegendLeft = 6000;//具体设置图例的左边距

m_BookActiveChartLegendInteriorColorIndex = ExcelXlColorIndexxlColorIndexNone;

m_BookActiveChartLegendWidth = 150;

m_BookActiveChartLegendFontSize = 95;

//m_BookActiveChartLegendFontBold = true;

m_BookActiveChartLegendFontName = "宋体";

//m_BookActiveChartLegendPosition = ExcelXlLegendPositionxlLegendPositionTop;//设置图例的位置

m_BookActiveChartLegendBorderLineStyle = ExcelXlLineStylexlLineStyleNone;//设置图例边框线条

//设置X轴的显示

ExcelAxis xAxis = (ExcelAxis)m_BookActiveChartAxes(ExcelXlAxisTypexlValue, ExcelXlAxisGroupxlPrimary);

xAxisMajorGridlinesBorderLineStyle = ExcelXlLineStylexlDot;

xAxisMajorGridlinesBorderColorIndex = 1;//gridLine横向线条的颜色

xAxisHasTitle = false;

xAxisMinimumScale = 1500;

xAxisMaximumScale = 6000;

xAxisTickLabelsFontName = "宋体";

xAxisTickLabelsFontSize = 9;

//设置Y轴的显示

ExcelAxis yAxis = (ExcelAxis)m_BookActiveChartAxes(ExcelXlAxisTypexlCategory, ExcelXlAxisGroupxlPrimary);

yAxisTickLabelSpacing = 30;

yAxisTickLabelsNumberFormat = "M月D日";

yAxisTickLabelsOrientation = ExcelXlTickLabelOrientationxlTickLabelOrientationHorizontal;//Y轴显示的方向,是水平还是垂直等

yAxisTickLabelsFontSize = 8;

yAxisTickLabelsFontName = "宋体";

//m_BookActiveChartFloorInteriorColorIndex = 8;

/以下是设置标题

m_BookActiveChartHasTitle=true;

m_BookActiveChartChartTitleText = "净值指数";

m_BookActiveChartChartTitleShadow = true;

m_BookActiveChartChartTitleBorderLineStyle = ExcelXlLineStylexlContinuous;

/

oSeries = (ExcelSeries)m_BookActiveChartSeriesCollection(1);

oSeriesBorderColorIndex = 45;

oSeriesBorderWeight = ExcelXlBorderWeightxlThick;

oSeries = (ExcelSeries)m_BookActiveChartSeriesCollection(2);

oSeriesBorderColorIndex = 9;

oSeriesBorderWeight = ExcelXlBorderWeightxlThick;

}

自己改吧改吧

EXCEL 编辑家谱是不太现实的，家谱很复杂，不方便操作。

1、人物关系复杂；

2、成员众多，资料丰富，代数、字辈。

3、建议使用 找你家谱 FindU 轻松修谱，或者轻松采集数据，汇集至总编、主编，方便修家谱，不用纸质采集或电子表格操作，效率低、易出错。

手机修谱·网络寻根

http://tiebabaiducom/p/4865322667

蒲千寻家谱展示

http://tiebabaiducom/p/4865510206

——找你家谱 FindU

材料/工具：Excel2013

1、打开Excel软件，如图所示，制作一组数据。

2、选择数据区域表格，单击菜单栏“插入”——条形图，在“二维条形图”“三维条形图”“圆柱图”“圆锥图”“棱锥图”中选择一种条形统计图。

3、  现在就可以看到条形统计图制作好了，如图所示

4、在条形统计图的空白区域单击右键选择“设置图表区域格式”

5、在弹出的“设置图表区域格式”对话框中可以进行“填充”“边框颜色”“边框样式”“阴影”“三维格式”“三维旋转”的设置。

'使用“开发工具”－“visual basic”建立一个模块，将下面的代码粘贴上。

'不好意思，怕你没有编程经验，多啰嗦了几句。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'要插入的

Dim strFilePath As String '存放的文件夹

Dim strJpgName As String '名称

Dim strFullJpgName As String'全路径文件名

strFilPath = "C:\Documents and Settings\Administrator\桌面\\" '可根据实际情况修改，引号必须

strJpgName= Cells(1, 1)Value & "jpg" '名称由A1单元格内获取 '可根据实际情况修改，引号必须。Cells(1,1)，其中前面的1表示行，后面的表示列，对应表格就是A列第1行。

strFullJpgName=strFilPath & strJpgName

'在B1单元格插入，具体是哪个单元格可修改

Sheet1Range("B1")Select 'Range("B1")表示B列第1行

Sheet1PicturesInsert (FilPath)

End Sub