返回列表 上一主題 發帖

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

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
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
收藏 分享
羅

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 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"

看看是否符合你的需求?

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2019-3-6 08:58 | 只看該作者
DEAR luhpro 大大
您提供之2種方式均可行  THANKS*10000
羅

TOP

        靜思自在 : 閒人無樂趣，忙人無是非。
返回列表 上一主題