Tag: 图像
在给定的Excel工作表中插入PDF文件作为图像
我一直在试图修改这个脚本来把PDF文件作为图像插入到活动工作表中。 但它不断创build一个新的工作簿，并插入到新书。 有人可以帮助我修改这个脚本，以便将pdf作为图像插入到名为“report”的工作表中。 Sub insert_pdf_to_report（） Dim Xl Dim Wb Dim Ws Dim Ol Sheets("Report").Activate Set Xl = CreateObject("Excel.Application") Set Wb = Xl.Workbooks.Add Set Ws = Wb.Worksheets.Add Set Ol = Ws.OLEObjects.Add(, "C:\QGC_HSSE\template.pdf", True, False) With Ol .Left = Ws.Range("A1").Left .Height = Ws.Range("A1").Height .Width = Ws.Range("A1").Width .Top = Ws.Range("A1").Top End With Sheets("Report").Activate Xl.Visible = True 结束小组
在Excel中插入URL中的图片：各种方法的错误
我试图从一个网站插入一张图片到excel工作表，但是我收到一个错误消息，不pipe我尝试哪种方法。 我使用的URL（“MyURL”）格式为： https：// xxxx：pppp / chart.png？id = 10 … apid = secretkey 但是，如果我使用任何其他图片url，它的作品…即使它有参数，例如： http：// www.mrexcel.com/forum/avatars/[personsname].gif?dateline=2007 MyUrl可以在任何浏览器中正常工作，但不能在Excel中正常工作。 我已经使用这些方法： A）图片插入 ActiveSheet.Pictures.Insert（“MyURL”） 给出错误：“运行时错误1004：无法获得图片类的插入属性” B）Shapes.AddPicture wsht.Shapes.AddPicture“MyURL”，msoFalse，msoTrue，0，0，100，100 给出错误：“运行时错误1004：找不到指定的文件” C）插入>图片>将URL粘贴到文件名中 给出错误：“导入此文件时发生错误” D）将MyUrl转换成一个简短的URL 给出错误： A – “图片类插入方法失败” B – “找不到指定的文件” C – “导入此文件时发生错误” 我的系统：Windows 8，Excel 2013 问题是什么？
将多个图像从一个工作簿复制到另一个作为单独的图像
在2003年的代码完美的工作，我们只是更新到2010年，其影响我们即将提出的build议。 我一直在寻找多个网站，所有我已经尝试给我所有的图片粘贴到一个分组的图像或给我多个盒子，说图像不能被查看。 图片将始终位于列L，但可以是一个图片或50甚至没有。 所以我需要能够select所有的图像，复制和打开另一个工作簿，并粘贴在一个指定的列与相同的格式和单独的图像，而不是一个单一的形象，这是我现在正在。 任何帮助将不胜感激。 以下是我尝试过的最新代码，粘贴时仍然会显示“单个分组图片”。 Windows(ourName2).Activate Sheets("Sheet5").Select On Error Resume Next ActiveSheet.Pictures.Copy Windows("Proposal.xls").Activate Sheets("Sheet2").Select ActiveSheet.PasteSpecial Range("L7") 更新，尝试使用此代码引起错误行Set wbSource = Workbooks("ourName2") Dim wbSource As Workbook Dim wbDest As Workbook Dim shSource As Worksheet Dim shDest As Worksheet Dim shp As Shape Set wbSource = Workbooks("ourName2") 'modify as needed Set wbDest = Workbooks("MPlanner.xls") 'modify as needed […]
在Delphi中插入图像到Excel工作表
我在这里有一个问题，我有一个应用程序，我需要添加图像。 我努力了： Sheet.Shapes.AddPicture(G_V.Prog_Dir+'pic.BMP',false,true, 190, 10+(15*rowcount), 100, 100 ); 它工作得很好，但我不想给参数，我想插入图片指定（和参数）单元格，因为我需要添加图片到页面的最后一列; 这个excel需要打印我不得不提到的。 所以我试了一下： Sheet.Range['E'+inttostr(rowcount),'E'+inttostr(rowcount)].Select; Sheet.Pictures.Insert(G_V.Prog_Dir+'pic.BMP'); 一见钟情，但我认为这段代码将图片链接到工作表。 例如，我将创build的Excel发送到另一台计算机，这些图像不能被看到（我不记得确切的错误），当我search它时，我发现接收计算机需要具有确切path的图像。 作为解决scheme，build议使用“Sheet.Shapes.AddPicture”，但正如我之前所说的，我需要另一个解决scheme。 我没有看到有人遇到这种问题，我希望有人帮助我。
如何使用VBA将Excel数据粘贴到Outlook中？
我有一个Excel工作表，其中包含a1:q38中的数据，我需要将其粘贴到Outlook电子邮件的BODY中。 任何想法如何做到这一点，而不是保存为JPG或PNG图像？
将多个图像从目录导出到一个Excel工作表
我想从一个图像文件夹中导出图像到一个工作表上的所有图像的Excel。 我设法导出图像，但只有一个图像。 这是我的代码： public void ExportToExcel() { //for export ExcelPackage objExcelPackage = new ExcelPackage(); //create new workbook string[] filesindirectory = Directory.GetFiles(Server.MapPath("~/Image")); int count = 0; ExcelWorksheet ws = objExcelPackage.Workbook.Worksheets.Add("Worksheet" + count); //create new worksheet foreach (string img in filesindirectory) { count++; System.Web.UI.WebControls.Image TEST_IMAGE = new System.Web.UI.WebControls.Image(); System.Drawing.Image myImage = System.Drawing.Image.FromFile(img); var pic = ws.Drawings.AddPicture(count.ToString(), myImage); […]
Excel VBA：点击图片时切换行隐藏/取消隐藏
我是全新的VBA，并有一个图像，我想分配一个macros，以便当用户点击它，它取消隐藏的行范围，当用户再次点击它，它隐藏的行。 我的形象： Image1.jpg 我已经为此图像分配了以下maco： Sub sbHidingUnHideRows() 'To Hide Rows 22 to 25 Rows("9:14").EntireRow.Hidden = False End Sub 这会在用户单击图像时取消隐藏我的行。 但是，我怎么能让行再次隐藏第二次点击？ 像一个切换button？ 这是我试过的： Sub sbHidingUnHideRows() 'To Hide Rows 22 to 25 Rows("9:14").EntireRow.Hidden = True Else Rows("9:14").EntireRow.Hidden = False End Sub 请有人告诉我我要去哪里错了？ 提前致谢
将范围导出为图像
一段时间以来，我和我的同事一直在用各种方法创build一个模板，轻松做出志愿者的空缺表格。 理想情况下，项目负责人只能input详细信息，自动生成空缺表格。 在这一点上，我尽可能自动完成表格，但我们仍然需要复制范围，并将其粘贴到绘图手动将其保存为图像。 同样在图像的左上angular，还有一个非常薄的左空白区域，我们必须调整。 所以我的两个问题是：什么代码会使我成功实现将范围（A1：F19）作为图像导出（格式对我无关紧要，除非你们在任何情况下看到（不））优点）白色空间得到纠正？ 如果将图像保存在与执行代码相同的文件夹中，并且文件名将是单元格J3的文件名，那将是理想的。 我一直在尝试我在这里和其他网站上find的几个macros，但是无法做任何工作，但是这个macros看起来对我来说最为逻辑/实用 – 称为“ 我们的香蕉人” 使用VBA代码如何在Excel 2003中将Excel工作表导出为图像？ ： dim sSheetName as string dim oRangeToCopy as range Dim oCht As Chart sSheetName ="Sheet1" ' worksheet to work on set oRangeToCopy =Range("B2:H8") ' range to be copied Worksheets(sSheetName).Range(oRangeToCopy).CopyPicture xlScreen, xlBitmap set oCht =charts.add with oCht .paste .Export FileName:="C:\SavedRange.jpg", Filtername:="JPG" end with 嗨！ […]
用图像将JSP数据导出为excel
在我们的项目中，我们需要将JSP页面导出到excel中。 我们不能使用Apache POI或任何其他开源API。 我遇到了下面提到的简单的方法 <％ response.setHeader（“Content-Disposition”，“attachment; filename = \”mult-table.xls \“”）; ％> <％@ page contentType =“application / vnd.ms-excel”％> <table><tr><td>使用image src加载图像</td></tr></table> 生成的Excel，但图像不显示在Excel中。 在我们的JSP页面中，我们有许多图像，也应该与其他数据一起导出到excel中 请让我知道如何做到这一点。 谢谢拉维
插入一个图像Excel表格不工作
我试图插入一个图像像下面的Excel表格。 Image img = Image.FromFile("test.jpg"); sheet.get_Range("A1").set_Item(1,1,img); 但是当excel在A1单元格打开时没有任何图片， 但只有这个结果： System.Drawing.Bitmap 那么问题是怎么解决的。 而第二个问题是： 如果我的图片位于数据库中，如何插入excel。 我不想将它们保存到计算机插入到Excel中？ [WinForm的]
