返回列表 上一主題 發帖

[發問] 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
複製代碼
收藏 分享

        靜思自在 : 對父母要知恩，感恩、報恩。
返回列表 上一主題