1. vba读取excel中的图片
我也刚刚遇到了类似的问题，我是插入了几个图片，组合后，保存EXCEL表，再打开图片就移动位置了
解决方法：
把组合后的图片拖到你想要的位置后，右键--取消组合，光标点击几个图片中最外框的图片，右键---组合，上方保存，再打开EXCEL表就不会移位了，亲们，可以试试，我刚刚是这么解决的。
说明：其实也就是重新组合了一次，只是组合步骤不同，第一次是在标题栏“查找和选择--选择对象--组合”，第二次是右键--组合--重新组合
2. vba怎么获取网页图片
。 VBA爬虫，只要是公开页面，都可以抓。但是登录页面我没试过。 其实很简单，就是抓一段字符，你研究出字符的规律，自动程序删减提取，再存到Excel或者本地数据库就可以了。
3. excel vba 图片
Sub Macro1() Selection.CopyPicture Appearance:=xlScreen, Format:=xlPictureEnd Sub你完全可以自己修改一下，方法是先将需要复制的区域选好，然后“工具->宏->录制新宏”，这个时候会提示你选择快捷键，自己选一个，然后按照原问题的方法进行操作，完成拷贝后"工具->宏->停止录制"。
之后先选中你需要复制的区域，然后使用你刚才设定的快捷键，就可以了。
4. vba 导出excel中的图片
将excel表格中的数据批量插入到word中的操作方法：
1、单击插入----对象按钮；
2、弹出插入对话框对话框，选择由文件创建对话框，单击浏览按钮；
3、弹出浏览对话框，选择需要插入有Excel文件；
4、单击插入按钮即可。
注：
（1）若选中链接到文件，源文件修改，Word中的表格也随之改变；
（2）若选中显示为图片，则以图标的形式插入到Word，双击可以打开其源文件。
5. vba读取单元格图片
1. VBA 局部变量和全局变量
2. VBA 变量赋值
3. VBA 选中一个Sheet
4. VBA 获取单元格内容
5. VBA 获取单元格行号和列号
6. VBA 单元格赋值
7. VBA Range获取单元区间
For Each cellVal In ThisWorkbook.Sheets(1).Range(startColName & rowNum & ":" & endColName & rowNum)
'cellVal即单元格的内容
'cellVal.Column 列号
'cellVal.Row 行号
Next
8. VBA 使用Find搜索单元格内容
在使用Find的时候经常会遇到两个问题： 1. VBA Find搜索失败，抛出异常 使用VBA中Find搜索内容，当搜索失败时，会抛出异常导致程序无法正常处理 解决方法如下，使用Rng存储，然后用If Not Rng Is Nothing Then判断。
Set Rng = ThisWorkbook.Sheets(1).Range(colName & firstRow & ":" & colName & lastRow).Find(styleColor)
If Not Rng Is Nothing Then
’可以找到（这里处理）
End If
Find循环破除 使用VBA中Find搜索内容，会出现循环搜索的问题，此时，可以使用判断是否回到第一次作为判断，断开循环。
Set Rng = ThisWorkbook.Sheets(1).Range(colName & firstRow & ":" & colName & lastRow).Find(styleColor)
If Not Rng Is Nothing Then
rowNum = Rng.Row
firstMatchRow = rowNum
While rowNum
' 这里写处理逻辑
' 继续搜索单店指定店铺
Set Rng = ThisWorkbook.Sheets(1).Range(colStyleColor & firstRow & ":" & colStyleColor & lastRow).Find(styleColor, after:=Range(colStyleColor & rowNum))
If Not Rng Is Nothing Then
rowNum = Rng.Row
End If
' 如果搜索回到第一个，退出函数 '
If firstMatchRow = rowNum Then
rowNum = fasle
End If
Wend
End If
9. VBA While循环退出循环
While i < 100
'这里处理逻辑 '
If i = 20 Then
i = 100 '利用While的破坏条件退出循环 '
End if
Wend
10. VBA 字典类型使用
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
If dic.exists(key) = False Then
dic.Add key, val
End If
' 循环读取字典内容 '
For Each key In dic
val = dic.Item(key)
Next
' 移除一个内容 '
dic.Remove(key)
' 移除全部内容 '
dic.RemoveAll
11. VBA For 循环
For i = 1 To 10
MsgBox i
Next i
12. VBA 获取最大行号
13. VBA If ElseIf
Name = "vba"
If Name = "vba" Then
MsgBox "Yes"
ElseIf Name = "xxx" Then
MsgBox "No"
Else
MsgBox "X"
End If
14. VBA 函数定义
' 1~num求和 '
Function getSum(num)
Sum = 0
For i = 1 To num
Sum = Sum + i
Next i
' 返回值为函数同名变量赋值 '
getSum = Sum
End Function
15. VBA 函数返回值
VBA中的字典无法作为返回值，此时需要借助全局变量传递返回值
Public tmpDic As Object
Function test()
Set tmpDic = CreateObject("Scripting.Dictionary")
tmpDic.Add "a", 5
End Function
16. VBA 退出Sub或Function
使用exit sub或exit function即可
17. VBA 注释
VBA使用单引号作为注释
18. 复制Sheet
19. 添加Sheet
Worksheets.Add().Name = "Sheet xxx"
6. excel查找图片
方法一：传统查找方法
通过鼠标来拖动右手边的滑块向上、向下滑动来寻找我们需要查看的内容
方法二：快速查找
在Excel表格页面，我们通过键盘快捷键ctrl+F打开“查找和替换”对话框，并在查找内容后的文本框中输入我们想要查找的内容；
在“查找和替换”对话框中点击“查找”，在出现的二级选项中我们可以看到“查找内容”，在查找内容中输入查找内容，输入我们要查找的内容后，点击“查找全部”即可；
接下来，我们可以看到我们要查找的内容了，在“查找和替换”对话框中我们可以看到查找到一条我们要查看的信息；查找好后，通过“查找和替换”对话框中点击“关闭”或右上角的“×”来关掉此对话框；现在我们可以在Excel表格中看到电脑为我们查找到的信息，现在可以查看该条信息的详细数据了。
7. vba打开图片文件
1、把图片放在某个文件夹内。
2、用VBA程序读取这个文件夹的文件。
3、把图片在相应的控件显示。
8. vba导入图片
假设图片有100张，图片格式为“.jpg"，图片放在”D:\PICTURE“中，要放入图片的名称写在A1到A100中（不含后缀名），图片插入到B1到B100的单元格。代码如下：
Sub插入图片()
DimIAsInteger
ForI=1To100
Cells(I,2).Select
ActiveSheet.Pictures.Insert"D:\PICTURE\"&Cells(I,1)&".jpg"
NextI
EndSub
9. vba读取word图片
操作步骤。
第一，首先将需要批量替换的多个Word文档放在同一文件夹下面。
第二，新建一空白Word文档，右击空白工具栏，单击“控件工具箱”，就可以看到屏幕上调出的控件工具箱。
第三，在控件工具箱上单击“命令按钮”，文档中就放置了一个按钮了。
第四，双击该按钮，进入VB代码编写模式，将以下代码复制进去。
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim myPas As String, myPath As String, i As Integer, myDoc As Document
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "选择目标文件夹"
If .Show = -1 Then
myPath = .SelectedItems(1)
Else
Exit Sub
End If
End With
myPas = InputBox("请输入打开密码：")
With Application.FileSearch
.LookIn = myPath
.FileType = msoFileTypeWordDocuments
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Set myDoc = Documents.Open(FileName:=.FoundFiles(i), Passworddocument:=myPas)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "大家好"
.Replacement.Text = "你好"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
myDoc.Save
myDoc.Close
Set myDoc = Nothing
Next
End If
End With
Application.ScreenUpdating = True
End Sub
第五，保存上面代码，退出VB编辑模式，返回Word文档界面。
第六，单击选中该按钮，再单击控件工具箱的第一个按钮“退出设计模式”。
第七，进行测试：点击按钮，选择要放置多个WORD文档所在的文件夹，确定后即可完成！注意如果WORD文档没有加密的话，密码项就不填，直接确认。就会发现该文件夹下面的所有WORD文档中“大家好”已被替换为“你好”了。
10. vba 显示图片
PrivateSubForm_Click()
Me.Print"单击窗体"
EndSub
PrivateSubPicture1_Click()
Picture1.Print"单击图片框"
EndSub
11. vba 导出图片
vba导出的不是pdf文件，应该是一个bas文件（右击模块，导出，保存） 之后在你想要导入的模块右击导入，选择这个bas文件就行了
- 相关评论
- 我要评论
-
