A. 求解VBA：按顺序提取excel内截图的照片名称
以下代码能满足要求，其他细节问题（比如只提取行档A列图片等）可设条茄带如件达到：
Sub提取照片名称()
DimRaAsRange,Sp颤启AsShape
ForEachSpInActiveSheet.Shapes
Sp.TopLeftCell.Offset(,1)=Sp.Name
Next
EndSub
B. Excel 怎样用VBA提取图片文件名
PublicSubPicName()
DimPthAsString
DimPicAsString
ActiveSheet.Range("A1").Select'选中激活窗口的A1
Pth="C:"
'路径，系统自带图片的地方
Pic=Dir(Pth&"*.jpg")'查看JPG格式的图片名拦枣称
DoWhilePic<>""
简氏拆Selection=Pic'赋值
核高Pic=Dir
Selection.Offset(1,0).Select
Loop
EndSub
C. 如何用vba在一段话里提取出指定名词，图片需要从A列提取出B列
Function TiQu(a$, B As Range)
'B按长短排序好然后从长到短的处理
Dim Arr, i&, j&, Tmp$
Arr = B
For i = 1 To UBound(Arr)
If InStr(1, a, Arr(i, 1)) >巧迹 0 Then
a = Replace(a, Arr(i, 1), "|")
Tmp = Tmp & "/" & Arr(i, 1)
End If
Next i
TiQu = Mid(Tmp, 2, 999)
End Function
但愿你孝戚并会使用仔闹。
D. 怎么用VBA在Excel中批量把图片url转换为图片
Sub 链接转图片()
For Each Rng In Selection '循环活动工作表中的各个超链颤闭接
If UCase(Rng.Value) Like "*.JPG*" Or UCase(Rng.Value) Like "*.JPEG*" Or UCase(Rng.Value) Like "*.PNG*" Or UCase(Rng.Value) Like "*.GIF*" Then '如果链接的位置是jpg或gif图片(此处仅针对此两种图片类型,更多类型可以通过建立数组或字典或正则来判断)
'Set Rng = HLK.Parent.Offset(, 0) '设定插入目标图片的位置
With ActiveSheet.Pictures.Insert(Rng.Value) '插入链接地址中的图片
If .Height / .Width > Rng.Height / Rng.Width Then '判断图片纵横比与单元格纵横比的比值以确定针对茄粗裂单元格缩放的比例
.Top = Rng.Top
.Left = Rng.Left + (Rng.Width - .Width * Rng.Height / .Height) / 2
.Width = .Width * Rng.Height / .Height
.Height = Rng.Height
Else
.Left = Rng.Left
.Top = Rng.Top + (Rng.Height - .Height * Rng.Width / .Width) / 2
.Height = .Height * Rng.Width / .Width
.Width = Rng.Width
End If
End With
Rng.Value = "" '删除单元格的图片链接凳罩
End If
Next
End Sub
E. 我想把图片插入到excel中，图片的名称是链接/后面的。用vba截取之后并批量插入到表格中，可是报错
这段代码没有错啊，不迟州明白你的意思。如果消察是做图片链码桥蔽接的话，可以把下面代码放在
.Pictures.Insert(FilPath).Select 这句代码后即可。
图片链接代码：
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=FilPath
F. 如何利用VBA，DOS命令提取多个照片中的名称，经度，纬度，高度
不清楚你的实际文件/情况，仅以问题中的说明及猜测为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的图片文件放一起双击运行
/*&cls&echo睁基off&cd/d"%~dp0"&modeconlines=5000
rem获取当前目录里多个jpg图片文件的经度、纬度、高度等GPS信息及拍摄日期
set#=Anyquestion&set_=WX&set$=Q&set/az=0x53b7e0b4
title%#%+%$%%$%/%_%%z%
set"outfile=xxx.csv"
dir/a-d-h/b*.jpg|cscript-nologo-e:jscript"%~f0"
pause
exit
*/
varfso=newActiveXObject('Scripting.FileSystemObject');
varwia=newActiveXObject('WIA.ImageFile');
while(!WSH.StdIn.AtEndOfStream){
varit=WSH.StdIn.ReadLine();
try{
vararr=[it,'','','','','',''];
varf=fso.GetFile(it);
wia.LoadFile(f.Path);
猛早察arr[1]=wia.Properties('GpsLatitudeRef').Value;
varpv1=wia.Properties('GpsLatitude').Value;
arr[2]=pv1.Item(1).Value+";"+pv1.Item(2).Value+";"+pv1.Item(3).Value;
arr[3]=wia.Properties('GpsLongitudeRef').Value;
varpv2=wia.Properties('GpsLongitude').Value;
arr[4]=pv2.Item(1).Value+";"+pv2.Item(2).Value+";"+pv2.Item(3).Value;
varpv3=wia.Properties('GpsAltitude').Value;
arr[5]=pv3.Value;
varpv4=wia.Properties('ExifDTOrig').Value;
varm=pv4.match(/(d+:d+:d+)(d+:d+:d+)/);
枝茄if(m){arr[6]=m[1].replace(/:/g,'-')+''+m[2];}
varline='"'+arr[0]+'",'+arr[1]+''+arr[2]+','+arr[3]+''+arr[4]+','+arr[5]+','+arr[6];
WSH.StdErr.Writeline(line);
}catch(err){}
}
G. EXCEL VBA 如何获取当前点击的图片的名称
n个图片，枯凯都指定同一个宏，在没链唤这宏里加唤薯入一句
picName=application.caller
msgbox picName