Tag: 图像

从其他工作簿复制/粘贴: 我写了代码来复制和粘贴到我的工作簿从其他工作簿使用的范围。在我的电脑中，它可以工作，但是当我发送给任何人时，粘贴过程导致错误信息： “此图片目前无法显示。” 目前的版本，我用xlPasteAll： Workbooks(fl.Name).Worksheets(sheetindex).Range("A2:P" & Lastrow).Copy Workbooks(fl.Name).Close Worksheets(sheetindex).Activate ActiveSheet.Range(Cells(startrow,1),Cells(rangeCount,16)).PasteSpecial xlPasteAll

删除图表图片而不删除图表: 在试图导出一个范围作为图片在用户窗体上使用我有以下几点： FolderPath = ThisWorkbook.Path & "\dbfiles" If ComboBox3.Value = "Cube" Then With Worksheets("Form") Set r = .Range("AE21:AM52") r.CopyPicture Appearance:=xlPrinter, Format:=xlPicture Set chtO = .ChartObjects("Chart 4") End With With chtO.Chart .Paste .Export Filename:=FolderPath & "\temppic.bmp", FilterName:="BMP" End With 问题是，当代码运行并且图表区域中已经有图片时，“新的粘贴”的大小会有所不同，并且不会填充图表区域。我需要这个发生，所以图片与我的用户表单上的其他对象排队。我发现，如果我手动删除图片，但离开图表（点击，按删除），一切工作正常。所以我的问题是，你如何务实地做到这一点？我已经尝试过，删除差距是无济于事的。（object_chart的方法删除失败）提前致谢。

如何将灰度图像以matrix或dataframe的forms转换为相应的像素值（0-1）？: 在R编程中，我想将灰度图像以matrix或数据框的forms转换为相应的像素值，如果需要，我也希望将数据存储在excel文件中。这个转换过程将帮助我实现和分析聚类方法以每个像素的强度的forms显示在图像上。许多人提出了biOps封装，用于这种灰度图像到像素matrix的转换，但不幸的是这个软件包不再受R的支持（link：cran.r-project.org/web/packages/biOps/index.html）。我也尝试了EBImage包，当我从摘要使用“imageData（）”提取灰度图像的像素值，但值存储为三维值的数组，但我想使matrix或dataframe，其中每个像素对应一个相应的值为0到1.可以build议R中的任何方法。作为参考我共享MRI扫描图像的excel文件。 MRI扫描图像：这是我希望我的图像被转换的方式你可以在这里下载excel文件（ https://d37djvu3ytnwxt.cloudfront.net/assets/courseware/v1/e4d303da53c93dfaca745ad1236e7d53/asset-v1:MITx+15.071x_3+1T2016+type@asset+block/tumor.csv ）

vba控制图像透明度可能吗？: 我的工作表中有一个图像，我想淡出。要做到这一点，我试图find一种方法来设置图像透明度的不同阶段，如下所示： Set myPicture = ActiveSheet.Pictures.Insert(pic) With myPicture .Transparency = 0.5 Application.Wait (Now + TimeValue("00:00:01")) .Transparency = 0.3 Application.Wait (Now + TimeValue("00:00:01")) .Transparency = 0.1 Application.Wait (Now + TimeValue("00:00:01")) .Delete End With 目前我得到一个对象不支持的错误消息，这导致我相信这可能是不可能的。如果可能的话，请somoene告诉我如何做到这一点？谢谢

将剪贴板中的图像转换为JPEG: 我想出了如何使用PowerShell脚本复制Excel工作表中的范围。我将这个输出写入一个variables，以便稍后将其转换为JPEG。我已经完成了Excel应用程序和Windows.Forms.Clipboard方法（ GetImage() ）。现在我的问题是如何将我的当前剪贴板转换为PowerShell脚本中的JPEG。我不可能用保存方法来转换剪贴板。我最后的命令是这样的： $clipboard.Save("C:\Data\picture.jpeg") $clipboard.Save(("C:\Data\picture.jpeg", "jpeg")) $clipboard.Save("C:\Data\picture.jpeg", "jpeg") 这三个解决scheme都没有工作。我总是得到这个variables为空的错误。在工作中，我也不允许使用PowerShell版本5.因此，我也无法使用cmdlet Get-Clipboard ＆ Set-Clipboard 。我知道可以将剪辑粘贴到绘图中，然后手动保存，但我不想单独执行此操作，而是使用PowerShell脚本。

VBA将Excel范围转换成图片并发送到Outlook，将文本写入正文: 我想复制一个范围从受保护的Excel工作表，并将其粘贴到Outlook作为图片，写一些文本，并显示它。我的代码首先粘贴文本，然后是图片，但同时删除文本。但我希望两者，文本和文本下的图片（范围转换成Excel中的图片）。任何人都可以帮助我如何得到它？ Sub Send_Email() Dim r As Range Set r = Range("NR7:OD39") Dim outlookApp As Outlook.Application Set outlookApp = CreateObject("Outlook.Application") Dim OutMail As Outlook.MailItem Set OutMail = outlookApp.CreateItem(olMailItem) Dim StrFileName As String Application.DisplayAlerts = False Application.ScreenUpdating = False Sheets("table1").Select ActiveSheet.Unprotect Password:="blabla" ActiveSheet.Outline.ShowLevels RowLevels:=8, ColumnLevels:=8 r.Select r.Copy OutMail.Display Dim Email As Word.Document Set Email […]

从ActiveX图像控件 – VBA中删除图像: 我创build了一个启用macros的Excel电子表格，它将以编程方式从磁盘加载图像并将其加载到ActiveX图像控件中。如何删除图像？我想从我的testing过程中删除图像。我不需要创build脚本来以编程方式将其删除。

创buildmacros用于在spreadhseet上重新使用所选图像的大小50％，并在其周围绘制一个0.25pt线: 我正在撰写一份报告，详细说明Excel中很多图表的顺序。我需要将图像的大小减小50％，并在其周围绘制一条重量为0.25pt的线。我试图logging一个macros，但是这个空白。我已经阅读过图片格式化步骤没有logging，并被忽略。我使用Excel 2007

Excel VBA页脚图像: 有没有办法使用Excel-VBA代码为了在图表中创build图片对象，以便将其作为页脚图片插入。我试图通过创build图表对象并将其粘贴为图片格式，然后将图表导出为图像文件并将图像设置为页脚。有没有更好的方法来插入一个图片对象作为页脚图像，如果是这样，我该怎么做？

VBA擅长为JPG格式图像格式的存在: 比方说，我有一个名为test.xls的Excel中的电子表格，里面有一个名为column1的列，其值为image1，image2等。我有一个名为images的文件夹，包含types为jpg的图像，名称类似于列image1中的值.jpg，image2.jpg等。我需要一个VBA代码来检查图像是否存在于基于电子表格列的文件夹中。谢谢！