关于向Excel中输入图片的问题
玥玥有钱花 2014-09-29 06:04:54 程序如下:
protected void Button1_Click(object sender, EventArgs e)
{
object missing = Type.Missing;
Excel.Application excel = new Excel.Application();
string path = @"C:\Users\fengpengfei\Desktop\轴承.xlsx";
Excel.Workbook wb = excel.Workbooks.Open(path, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing);
Excel.Worksheet ws = wb.Sheets[1];
excel.Visible = true;
InsertPicture("A2", @"C:\Users\fengpengfei\Desktop\轴承.xlsx",30,30);
excel.Workbooks.Close();
excel.Quit();
System.GC.Collect();
System.GC.WaitForPendingFinalizers();
//InsertPicture("excel.Cell[1,1]", "Images\\9.jpg", 594.0f, 154.0f);
}
public void InsertPicture(string Rangename, string PicturePath, float PictuteWidth, float PictureHeight)
{
Excel._Worksheet ws = new Excel.Worksheet();
Excel.Range rng = ws.get_Range(Rangename,Type.Missing);
rng.Select();
float PicLeft, PicTop;
PicLeft = Convert.ToSingle(rng.Left);
PicTop = Convert.ToSingle(rng.Top) + 1;
//PicWidth = Convert.ToSingle(rng.Width);
//PicHeight = Convert.ToSingle(rng.Height);
//参数含义:
//图片路径
//是否链接到文件
//图片插入时是否随文档一起保存
//图片在文档中的坐标位置(单位:points)
//图片显示的宽度和高度(单位:points)
//参数详细信息参见:http://msdn2.microsoft.com/zh-cn/library/aa221765(office.11).aspx
ws.Shapes.AddPicture(PicturePath, Microsoft.Office.Core.MsoTriState.msoFalse,
Microsoft.Office.Core.MsoTriState.msoTrue, PicLeft, PicTop, PictuteWidth, PictureHeight);