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

[µo°Ý] "¤Þ¼Æ¤£¬°¿ï¾Ü©Ê(OPTIONAL)"¤§°õ¦æ¶¥¬q¿ù»~

[µo°Ý] "¤Þ¼Æ¤£¬°¿ï¾Ü©Ê(OPTIONAL)"¤§°õ¦æ¶¥¬q¿ù»~

DEAR ALL¤j¤j
1.¦p¹Ï¤@,·sª©¥»EXCEL°õ¦æ«á¨q¥X "¤Þ¼Æ¤£¬°¿ï¾Ü©Ê(OPTIONAL)"¤§°õ¦æ¶¥¬q¿ù»~
1.1 ½Ð°Ý¬O­n­×§ï VAB¤º®e¶Ü??¦p¦ó­×§ï??  OR
1.2 ½Ð°Ý¬O»P³]©w¤Þ¥Î¶µ¥Ø¦³Ãö¶Ü??¦óªÌ­n¶}±Ò??
2.·Ð¤£§[½ç±Ð  THANKS*10000

¹Ï¤@
Sub printgif()
    ActiveWindow.Zoom = 100
    Range("A1").Select
    Dim rngCopy As Range
    Set rngCopy = Sheet1.Range("A1:C5")
    rngCopy.CopyPicture Format:=xlBitmap
    With ActiveSheet.ChartObjects.Add(, , rngCopy.Width, rngCopy.Height).Chart
        .Paste
        .Export Filename:="" & Sheet2.Range("A1") & "", FilterName:="GIF"
        .Parent.Delete
    End With
    ActiveWindow.Zoom = 75
End Sub
ù

DEAR ALL ¤j¤j
¸g¬ã¨s
With ActiveSheet.ChartObjects.Add(, , rngCopy.Width, rngCopy.Height).Chart
¥[¤W0,0,¡K´N¥i¥H¤F
With ActiveSheet.ChartObjects.Add(0,0 , rngCopy.Width, rngCopy.Height).Chart
¬Ý¨Ó2010¥H¤Wª©¥»¤£¤ä´©ªÅ¥Õ¤Þ¼Æ
THANKS*10000
ù

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD