ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Âà¦sIPGÀɦWºÙ°ÝÃD½Ð±Ð

[µo°Ý] Âà¦sIPGÀɦWºÙ°ÝÃD½Ð±Ð

DEAR ALL  ¤j¤j
1.¹Ï¤@µ{¦¡·|Âà¦sCells(i, 3)¹ÏÀÉ¦Ü \pcbfs02\C701\¥Í²£«ü¥Ü¥d¹ÏÀÉ\ ¤UÀɮצWºÙ 00 01 02 03.....
2.¦p¦óÅýÀɮצWºÙ§ï¬°  Cells(i, 1)+Cells(i, 2) Àx¦s®æ¤º®e
2.1 p.Name = Format(j, "00") & ".jpg" ¦p¦ó­×­q
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\¥Í²£«ü¥Ü¥d¹ÏÀÉ\" & 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:03 ½s¿è
DEAR ALL  ¤j¤j
1.¹Ï¤@µ{¦¡·|Âà¦sCells(i, 3)¹ÏÀÉ¦Ü \pcbfs02\C701\¥Í²£«ü¥Ü¥d¹ÏÀÉ\ ¤UÀɮצWºÙ 00 01 02  ...
rouber590324 µoªí©ó 2019-3-4 16:16


¬Ý¤£¨ì§A Cells(i, 1) »P Cells(i, 2) Àx¦s®æªº¤º®e,
°²³]³£¬O¤å¦rÃþ«¬,
¨º»òª½±µ¨Ì¤å¦r¦X¨Öªº¤è¦¡³B²zÀ³¸Ó´N¥i¥H¤F :

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


¦pªG³£¬O¼Æ¦r¨º»ò§ï¦¨³o¼Ë :
  
p.Name = Format(Cells(i, 1) + Cells(i, 2), "00") & ".jpg"

¬Ý¬Ý¬O§_²Å¦X§Aªº»Ý¨D?

TOP

DEAR luhpro ¤j¤j
±z´£¨Ñ¤§2ºØ¤è¦¡§¡¥i¦æ  THANKS*10000
ù

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD