『壹』 wps點擊單元格顯示圖片
摘要 1、在單元格輸入所需文本
『貳』 點擊指定數據的單元格,顯示對應的圖片,代碼怎麼調整
假使A1放的是圖片名,那麼雙擊A1 在指定區域顯示圖片,雙擊其他單元格刪除圖片。
把以下代碼這個放在sheet 雙擊事件中 代碼我調試過了
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim re As Range
Dim pic As Variant
Dim path As String
Dim name As String
Dim shp As Shape
If Target.Column = 1 And Target.Row = 1 Then '雙擊A1
name = ThisWorkbook.Sheets(1).Cells(1, 1)
path = "C:\Users\Administrator\Desktop\" & name & ".png" '這里圖片路徑,我是把圖片放在桌面上的,自己改
Set pic = Nothing
ThisWorkbook.Sheets(1).Range("C1:F4").Select '這里C1:F4是圖片顯示的區域位置,大小也和區域一樣大
Set pic = ActiveSheet.Pictures.Insert(path)
pic.name = name '設定圖片的名稱 為A1的值
pic.Placement = xlMoveAndSize '圖片隨著區域大小
With pic.ShapeRange
.LockAspectRatio = msoFalse
.Height = Selection.Height
.Width = Selection.Width
End With
Else
name = ThisWorkbook.Sheets(1).Cells(1, 1)
For Each shp In ThisWorkbook.Sheets(1).Shapes '如果雙擊的是其他單元格,則刪除A1對應的圖片
If InStr(shp.name, name) Then shp.Delete
Next
End If
End Sub
『叄』 在Excel表格中如何實現滑鼠移到相應的單元格就會顯示出圖片
右鍵單元格--插入批註,刪除方框中的文字
『肆』 如何在excel表格上設置雙擊出現圖片
可以設置成連接,把你想點擊後出現的圖片進行超鏈接就可以實現了。
『伍』 怎麼在excel中點擊文字出現圖片
1、首先來製作下來列表,實現進行產品篩選:選定要放置的單元格(如本次的E2),點擊功能區的數據選項卡中的「數據驗證」,
『陸』 EXCEL 如何在單元格插入一個圖片,雙擊時就顯示原圖。
1、電腦打開Excel表格,然後點擊插入選項。
『柒』 怎麼用VBA實現點擊單元格然後根據單元格內容旁邊自動顯示圖片圖片都是電腦統一路徑下的。
工作表插入ActiveX控制項Image1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Image1.Picture = LoadPicture("圖片路徑\" & Target.Cells(1, 1) & ".jpg")
End Sub
『捌』 Excel中可以實現滑鼠點擊一個單元格,另一個單元格就顯示與之關聯的圖片嗎
假使A1放的是圖片名,那麼雙擊A1 在指定區域顯示圖片,雙擊其他單元格刪除圖片。
把以下代碼這個放在sheet 雙擊事件中 代碼我調試過了
PrivateSubWorksheet_BeforeDoubleClick(ByValTargetAsRange,CancelAsBoolean)
DimreAsRange
DimpicAsVariant
DimpathAsString
DimnameAsString
DimshpAsShape
IfTarget.Column=1AndTarget.Row=1Then'雙擊A1
name=ThisWorkbook.Sheets(1).Cells(1,1)
path="C:UsersAdministratorDesktop"&name&".png"'這里圖片路徑,我是把圖片放在桌面上的,自己改
Setpic=Nothing
ThisWorkbook.Sheets(1).Range("C1:F4").Select'這里C1:F4是圖片顯示的區域位置,大小也和區域一樣大
Setpic=ActiveSheet.Pictures.Insert(path)
pic.name=name'設定圖片的名稱為A1的值
pic.Placement=xlMoveAndSize'圖片隨著區域大小
Withpic.ShapeRange
.LockAspectRatio=msoFalse
.Height=Selection.Height
.Width=Selection.Width
EndWith
Else
name=ThisWorkbook.Sheets(1).Cells(1,1)
ForEachshpInThisWorkbook.Sheets(1).Shapes'如果雙擊的是其他單元格,則刪除A1對應的圖片
IfInStr(shp.name,name)Thenshp.Delete
Next
EndIf
EndSub
『玖』 excel表格怎麼設置點一下文字就出來圖片
點中文字右擊超鏈接,選需要連接的圖片即可。
『拾』 EXCEL表中如何設置成點擊單元格就能顯示其詳細信息,附圖
可以用宏處理,老兄,文件發到