A. 如何讓Excel單元格對應關聯顯示外部文件夾圖片
VBA可以做到
PrivateSubWorksheet_Change(ByValTargetAsRange)
DimrgAsRange
DimadAsString
DimtpAsString
Dimw,hAsLong
ad="D:圖片"
ForEachrgInTarget
Ifrg.Column=1Andrg.Value<>""Then
tp=ad&rg.Value&".jpg"
rg.Offset(0,1).Select
ActiveSheet.Pictures.Insert(tp).Select
WithSelection
w=rg.Offset(0,1).Width
h=rg.Offset(0,1).Height
Debug.Printw,h
.ShapeRange.LockAspectRatio=msoFalse
.ShapeRange.Width=w
.ShapeRange.Height=h
.Placement=xlMoveAndSize
.PrintObject=True
EndWith
EndIf
Nextrg
EndSub
代碼只適用於JPG格式的圖片,如果是其他格式,可以手動把代碼里的JPG改成其他格式試試
B. 如何讓excel里的內容與其他文件夾里的圖片建立超鏈接
方法一:右擊單元格點擊超鏈接
1、滑鼠點擊需要鏈接文字所在單元格——右擊——在下來列表中找到「超鏈接(H)……」——點擊打開超鏈接對話框。
2、在對話框中找到超鏈接文件的位置——點擊確定,就OK啦。
方法二:用「HYPERLINK」函數建立超鏈接
1、用滑鼠點擊需要建立超鏈接的單元格——點擊函數圖標——在打開的函數對話框中找到超鏈接函數「HYPERLINK」,點擊打開。
2、在打開的超鏈接函數中在Link-location中輸入鏈接的位置,在Friendly-name中輸入鏈接提示名。這就OK啦。
C. 請問在excel表格中怎麼關聯圖片
根據題目描述,D:圖片 文件夾下存放照片,在單元格輸入照片名字,想顯示對應圖片。
操作步驟如下:
在表格中,按ALT+F11鍵,把以下代碼粘貼進去:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$2" Then Exit Sub
On Error Resume Next
ActiveSheet.Shapes("pic").Select
Selection.ShapeRange.Fill.UserPicture "D:圖片" & Range("C2").Value & ".jpg"
ActiveCell.Select
End Sub
在工作表中插入一個圖形如矩形,在名稱框輸入pic命名。
在C2輸入圖片名,調整pic至合適大小。當C2改變時,pic顯示對應路徑下不同圖片。