返回列表 上一主題 發帖

[發問] VBA指定格內插入對應的圖片(程式碼討論)

liebe

帖子
28 
主題
20 
精華
0 
積分
70 
點名
0  
作業系統
windows 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2017-7-4 
最後登錄
2018-8-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-9-6 20:01 | 只看該作者

[發問] VBA指定格內插入對應的圖片(程式碼討論)

各位大大們好!

目前想製作能在指定格內自動插入相對應名稱的客戶LOGO ( 插入圖片大小不能超過指定格的大小)，若是找不到相對應名稱的圖片將會開啟資料夾(專門存放客戶LOGO的資料夾)
而程式撰寫部分遇到以下問題:
1.不管圖片格式如何，只要圖名與客戶名相符就能自動插入指定格中，目前寫法如下第七列 (X=Dir("")) ，不知大大們是否有更好得寫法?
2.圖片插入的地方有五個部份，表格大小都不一樣，不知是否能指定圖片大小與儲存格大小相同?
3.如何轉寫開啟指定資料夾   ((( S:archiv\LOGO
以上! 感謝各位大大!!
程式碼如下:(由於還使新手，若語法有錯再麻煩大大們糾正我一下)
  1. Sub Logo()

  3. If Sheets("Grunddefinition").Range("T5").Value <> 0 Or Sheets("Grunddefinition").Range("T5").Value <> "" Then

  5.    Dim A As String
  6.     A = Application.IfError(Application.VLookup(Sheets("Grunddefinition").Range("S5"), Sheets("Grunddefinition").Range("S5:T5"), 2, False), "")

  8.     Dim x As String
  9.     x = Dir("S:archiv\LOGO\" & A & ".png") 'Or x = Dir("S:archiv\LOGO\" & A & ".jpg")
  10.       
  11.       If x <> "" Then
  12.       
  13.          Set p = ActiveSheet.Pictures.Insert("S:archiv\LOGO\" & A & ".png") 'Or x = Dir("S:archiv\LOGO\" & A & ".jpg")
  14.          Set C = Sheets("Grunddefinition").Range("S1") And Sheets("Zeitablaufplan").Range("B5") And Sheets("Zeitablaufplan").Range("M5") And Sheets("Zeitablaufplan").Range("X5") And Sheets("Zeitablaufplan").Range("AI5")
  15.          
  16.    
  17.       
  18.       ElseIf x = "" Then
  19.       MsgBox "Error! Can't find the corresponding picture!"
  20.       MsgBox "You should check whether the picture is existing in the folder of Logo or check the name of the picture is corresponded with the name of customer!"
  21.       
  22. End If

  24. ElseIf Sheets("Grunddefinition").Range("T3").Value = 0 Or Sheets("Grunddefinition").Range("T3").Value = "" Then
  25. MsgBox "Please enter the name of the customer!"
  26. Sheets("Grunddefinition").Select
  27. Rows(5).Select
  28. End If


  31. End Sub
複製代碼
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2017-9-8 07:10 | 只看該作者
回復 1# liebe

你這語法錯誤 set 變數=物件, 物件只能是一個
  1. Set C = Sheets("Grunddefinition").Range("S1") And Sheets("Zeitablaufplan").Range("B5") And Sheets("Zeitablaufplan").Range("M5") And Sheets("Zeitablaufplan").Range("X5") And Sheets("Zeitablaufplan").Range("AI5")
複製代碼
關於圖片的匯入,請用本討論版的搜索功能,搜索 關鍵字"Pictures"本版有許多討論
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題