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