返回列表下一主題上一主題發帖

[發問] 轉存IPG檔名稱問題請教

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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