麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 轉存IPG檔名稱問題請教 [打印本頁]

作者: rouber590324 時間: 2019-3-4 16:16 標題: 轉存IPG檔名稱問題請教

DEAR ALL  大大
1.圖一程式會轉存Cells(i, 3)圖檔至 \pcbfs02\C701\生產指示卡圖檔\ 下檔案名稱 00 01 02 03.....
2.如何讓檔案名稱改為  Cells(i, 1)+Cells(i, 2) 儲存格內容
2.1 p.Name = Format(j, "00") & ".jpg" 如何修訂
3.煩不吝賜教 THANKS*10000

圖一
Sub yy()
Dim j%
Application.ScreenUpdating = False
For i = 2 To [a65536].End(xlUp).Row
For Each p In ActiveSheet.Shapes
If Not Application.Intersect(p.TopLeftCell, Cells(i, 3)) Is Nothing Then
         p.Name = Format(j, "00") & ".jpg"
         p.CopyPicture
         ActiveSheet.Paste
      With ActiveSheet.ChartObjects.Add(300, 0, Selection.Width, Selection.Height).Chart
         .Paste
         .Export "\\pcbfs02\C701\生產指示卡圖檔\" & p.Name, "JPG"
         Selection.Delete
         .Parent.Delete
      End With
         Application.ScreenUpdating = True
         j = j + 1
         End If
         Next p
Next i
End Sub

作者: luhpro 時間: 2019-3-5 23:01

本帖最後由 luhpro 於 2019-3-5 23:03 編輯

DEAR ALL 大大
1.圖一程式會轉存Cells(i, 3)圖檔至 \pcbfs02\C701\生產指示卡圖檔\ 下檔案名稱 00 01 02 ...
rouber590324 發表於 2019-3-4 16:16

看不到你 Cells(i, 1) 與 Cells(i, 2) 儲存格的內容,
假設都是文字類型,
那麼直接依文字合併的方式處理應該就可以了 :

p.Name = Cells(i, 1) & Cells(i, 2) & ".jpg"

如果都是數字那麼改成這樣 :

p.Name = Format(Cells(i, 1) + Cells(i, 2), "00") & ".jpg"

看看是否符合你的需求?

作者: rouber590324 時間: 2019-3-6 08:58

DEAR luhpro 大大
您提供之2種方式均可行 THANKS*10000

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)