1. vba获取图片尺寸
选中这一列，单击菜单栏格式→列→最适合列宽。然后这一列的宽度就会随着单元格内容自动调整宽度。
2. vba处理图片
方法：
sub 图片导入
dim s as shape
dim rg as range
'删除已有的图片
for each s in activesheet.shapes
if s.type 8 then
s.delete
end if
'导入图片
for each rg in range("B2:B10")'这里放要插入图片的单元格范围 B2:B10可以改成你所需要的范围
activesheet.shapes.addshape(msoshaperectangle,rg.left,rg.top,rg.width,rg.height).select
selection.shaperange.fill.userpicture "E:\图片"& rg.offset(0, -1) & ".jpg"'这里指定的是图片的存储路径为E盘下的图片文件夹，然后图片名称与A列的数据一致，后缀名为JPG格式。这些你都可以自行更改。根据需要来定
next rg
end sub
3. vba获取图片尺寸和大小
excel文件太大原因之一：工作表中有大量细小图片对象导致文件增大。比如从网页上复制内容直接粘帖到Excel文件中，而没有使用选择性粘帖。
无意中单击了绘图工具栏的直线或其他绘图对象，不知不觉中在文件中插入了小的直线或其他图形，由于很小，几乎无法看到，又通过单元格的复制产生了大量的小绘图对象。
在工作表中插入了图片其他绘图对象，操作中又将其高度宽度设为0或很小的值，通过复制产生了大量的对象。
这种问题引起的excel文件太大，解决方法：按下F5键，定位条件，选中“对象”，确定，看是否有很多被选择的小对象。
但如果隐藏列或行，对象仍然不能看到。
这时可以使用VBA对对象进行计数，看看有多少个对象在工作表中，与你的工作表中需要的对象数量是否相符。
方法：按下ALT+F11键，打开VBE窗口，单击插入——模块，复制下面代码，按F5键运行。
Sub countshapes()Dim nn = ActiveSheet.Shapes.CountMsgBox "本工作表共有" & n & "个对象"End Subexcel文件太大原因之二：一个工作簿带有过多工作表，导致体积过大打开缓慢。适当的Excel工作簿内的工作表分离成多个工作簿，科学合理的创建规范的文件夹，分门别类，逻辑放置。
excel文件太大原因之三：很大区域设置了数据有效性，或将有有效性设置的单元格复制到很大的区域，尤其是在有效性设置中进行了“输入法”“输入信息”“出错警告”的设置，更具有隐蔽性，一般不易发现。
这种原因引起的excel文件太大，解决办法是：选择多余的单元格区域，数据-有效性，在“设置”、“输入信息”、“出错警告”、“输入法”页面分别执行“全部清除”。excel文件太大原因之四：VBA模块、窗体、控件或插件过多。将工作表内所有VBA模块整合到单个模块里，尽量简化VBA代码的编写，精简窗体控件及插件。excel文件太大原因之五：工作表背景造成的文件增大,因以较大的图片作为工作表的背景，使文件增大。
除非特别需要，不用背景，如果确实需要，作为背景的图片要尽可能的小。
4. vba读取excel中的图片
Public Sub PicName()Dim Pth As StringDim Pic As StringActiveSheet.Range("A1").Select '选中激活窗口的A1Pth = "C:UsersPublicPicturesSample Pictures"'路径，系统自带图片的地方Pic = Dir(Pth & "*.jpg") '查看JPG格式的图片名称Do While Pic <> "" Selection = Pic '赋值 Pic = Dir Selection.Offset(1, 0).SelectLoopEnd Sub
5. vba 图片
例如，新建一个4行1列的表格，然后在Cell(3, 1)内插入图片：
Sub Macro1() Dim mysel mysel = ActiveDocument.Tables(1).Cell(3, 1) mysel.InlineShapes.AddPicture FileName:="C:\a.jpg", LinkToFile:=True, SaveWithDocument:=TrueEnd Sub
6. vba图片抓取数字
Subcc() Cells.ClearContents SetoDoc=CreateObject("htmlfile") WithCreateObject("WinHttp.WinHttpRequest.5.1") .Open"GET", "", False .Send .WaitForResponse oDoc.body.innerHTML=.responsetext Setr=oDoc.All.tags("table")(7).Rows Fori=0Tor.Length-1 k=[a65536].End(3).Row Forj=0Tor(i).Cells.Length-1 Cells(k+1,j+1)=r(i).Cells(j).innerText Nextj Nexti Setr=Nothing EndWith EndSub
7. vba显示图片
你这个肯定的啊，你的这个代码的显示的文件夹的图片，1.别人不一定有，2.不一定叫这个名字，3.你的代码是每改动一个单元格就会删除所有图片然后重新读取图片。所以你发给别人肯定是有问题的。
8. vba获取图片像素值
用
API函数
GetPixel先给个声明：Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long获取 (x,y) 的颜色（hdc是句柄）注意，目标控件的ScaleMode要为3（单位是Pixel(像素)）写文件的事你自己办吧………9. vba获取图片尺寸大小
1、首先我们需要打开桌面上已经含有数据的Excel文档。
2、可以看到原本想要分开的数据全部在一个单元格内。
3、选中需要进行修改的数据，点击最上方的“数据”。
4、然后在下方的功能区中找到“数据工具”，选择里面的“分列”。、
5、此时就可以看到，最初在一个单元格里的内容已经成功分到了不同的单元格里了。
10. excel图片尺寸
首先打开电脑，找到Excel软件
点击Excel软件，打开Excel表格
选择插入，选择图片，找到所需图片，点击插入
Excel表格中插入了图片
点击图片，打开格式，找到大小，
这里可以调整图片的大小，输入：所需高度和宽度；图片调整大小就完成了
- 相关评论
- 我要评论
-
