Tag: 图像

从图像框控件（VBA）中的图像: 我正在寻找一种简单的方法来将图像加载到excel中的userform，vba项目中的图像控件。是否有可能直接从自己的工作表加载粘贴的链接图像，然后让该对象作为图像控件的源？我发现可以这样做，但它需要导出图像（或将图像保存为图像），然后将其加载到图像控件，但我正在寻找一种不涉及Excel文件中的外部数据的方法。谢谢。

如何从arrayList中提取图片对象: 我在ArrayList放置了可变数量的图片。每个图片都有自己的名字（通过命名的范围）。 Dim Pic As Picture Dim picArray As Object Set picArray = CreateObject("System.Collections.ArrayList") For Each Pic In ActiveSheet.Pictures picName = differentNameEachTime If Pic.Left = Range(picName).Left And Pic.Top = Range(picName).Top Then picArray.Add Pic end if next Pic 以上绝对作用如下所示的Msgbox调用validation： Range("G3").Select x = 0 For Each Pic In picArray Set picObject = Pic MsgBox Pic.Name MsgBox TypeName(Pic) […]

使用NPOI从Excel文件读取图像: 我在使用C＃编写Visual Studio 2010中的程序来读取一些Excel文件，并使用NPOI库。最终目标是读取原始excel文件（xlsm）中的图像，将该图像复制并粘贴到新的excel文件（xlsx）中。如果它可以粘贴到原来的位置，会更好。我无法find直接复制和过去的方法，所以我的解决方法是读取图像，在本地保存图像的副本（如JPEG或其他），然后将图像插入到新的Excel文件中。下面是我用来读取图像和保存副本的代码。 var lst = originalWorkbook.GetAllPictures(); for (int i = 0; i < lst.Count; i++) { var pic = lst[i]; Stream s = File.Open(String.Format("{0}.jpeg", n), FileMode.Create); BinaryFormatter bf = new BinaryFormatter (); bf.Serialize(s, pic); s.Close(); } 当我运行这个程序时，我收到一个exception，说“ Type 'NPOI.XXSF.UserModel.XSSFPictureData' in Assebly……is not marked as serializable ”。我尝试在我的课之前添加[Serializable] ，但exception仍然存在。我该如何解决这个可序列化的问题？还是有更好的方法来实现我的最终目标？ […]

文本复制到Excel表单显示为图像: 我有一个excel工作表，里面包含了几个应该是文本的单元格（从网站上复制而来），但是实际上单元格的内容就像某种图像一样，可以select包含在其中的文本。我想将excel表单导出为CSV文件，但这些单元格的内容不能导出。由于有数百个单元存在这个问题，我想知道是否有一个快速的方法将所有的图像文本混合变成纯文本，这样它们可以正确地导出到txt / CSV。提前致谢。

Office加载项：在excelfunction区上的宽图像: 我只是想知道是否有可能在excelfunction区上放置一个宽的图像（例如100px宽）。现在对我来说，把图像放在function区上的唯一可能性是使图像成为一个大尺寸的button，但它仍然只有32×32像素。有任何想法吗？

错误修复：在Excel 2016 VBA中复制的图像显示为空白图像: 我试图导出到我的本地文件定义的Excel范围作为图像（PNG）（它被命名为：“Print_Area”选项卡“摘要”范围：P1：AI92）。该程序运行良好，但是当我打开文件所有的想象都是空白的这里是我使用的编码： Sub _Daily_Mail() Dim Rango7 As Range Dim Archivo As String Dim Imagen As Chart Dim Result As Boolean Set Rango7 = Sheets("Summary").Range("P2:AI92") ' Summary Sheets("Summary").Select With Rango7 .CopyPicture Appearance:=xlScreen, Format:=xlPicture Set Imagen = Rango7.Parent.ChartObjects.Add(33, 39, .Width, .Height).Chart End With Imagen.Paste Imagen.ChartArea.Border.LineStyle = 0 Imagen.ChartArea.Width = Imagen.ChartArea.Width * 3 Imagen.ChartArea.Height = Imagen.ChartArea.Height * 3 […]

用python逐行提取图像: 我正试图从Excel表格中提取图像。 Excel表基本上是一个产品的图像和细节的产品清单。同 EmbeddedFiles = zipfile.ZipFile(path).namelist() ImageFiles = [F for F in EmbeddedFiles if F.count('.jpg') or F.count('.jpeg')] 我可以一次提取所有的图像，但我不能找出一种方式来逐行获取图像，以便我可以将产品保存到数据库中，并将图像添加到相应的产品。我使用的是从Excel中读取的openpyxl，但是没有提供获取图像的方法。我可以转移到其他图书馆。什么是最好的方式来做到这一点。

如何使用VBA将文件中的图像插入多张图纸: 我有一个工作簿有54张。 “Master”“Total”和“Week1”到“Week52” 我试图从文件中插入一张图片到“Week1”到“Week52”的单元格中。我已经尝试了很多代码，并能够正确地放置图像和大小下面的代码放置图像，我能够操纵他们得到正确的位置和正确的大小的图像。但我不能让他们通过其他工作表（周1到周52） Set oPic = Application.ActiveSheet.Shapes.AddPicture("C:\Users\Public\Documents\Cranes\MinerPic.wmf", False, True, 1, 1, 1, 1) oPic.ScaleHeight 0.3, True oPic.ScaleWidth 0.3, True oPic.Top = Range("p2").Top oPic.Left = Range("p2").Left .OnAction = "FC4.xlsm!MineSheet" 要么 pPath = "C:\Users\Public\Documents\Cranes\MinerPic.wmf" With ActiveSheet.Pictures.Insert(pPath) .Left = Range("p2").Left .Top = Range("p2").Top .ShapeRange.Height = 50 .ShapeRange.Width = 50 .OnAction = "FC4.xlsm!MineSheet" 在一个阶段，我能够把52张图片放在一起。我怀疑这与Activesheet命令有关。我非常新的VBA，并会感谢任何帮助。 […]

Excel VBA自定义function从URL毛刺插入图像: 我是在VBA中创build函数的新手。以下代码是对此处find的脚本的修改。该代码将两个图像从URL（或从文件系统）插入Excel电子表格中的两个用户定义的范围。在目标工作表中，我有一个公式引用同一工作簿中源表单中的包含url的单元格。代码的工作方式应该是在自己的工作表上，但是当我在源表单上工作时，它还会在保存文档或复制/粘贴时将图像插入到源表单中。在告诉Excel只贴在目标表单上的时候，如何保持一般的function呢？如何在每次保存或复制/粘贴时重新计算代码？谢谢！禅 Public Function NewPicsToRanges(URL1 As String, URL2 As String, Optional TargetCells1 As Range, Optional TargetCells2 As Range) ' inserts a picture and resizes it to fit the TargetCells range ActiveSheet.Shapes.SelectAll Selection.Delete Dim p1 As Object, t1 As Double, l1 As Double, w1 As Double, h1 As Double […]

如何使用Apache POI检查单元格是否包含图像？: 我有以下代码块： File file = new File("myFile.xlsx"); // my file inputStream = new FileInputStream(file); System.out.println("reading"); XSSFWorkbook wb = new XSSFWorkbook(inputStream); XSSFSheet sh = wb.getSheetAt(0); // first sheet Iterator rowIter = sh.rowIterator(); while(rowIter.hasNext()){ // iterate over all rows System.out.println("New Row "); // notify of new row Row myRow = (Row) rowIter.next(); Iterator cellIter = myRow.cellIterator(); while(cellIter.hasNext()){ // […]