½Ð°Ý¦p¦ó¥ÎVB±NEXCEL¸Ìªº¹Ï¤ù¶×¥X

ookook520

½Ð¦U¦ì¤j¤jÀ°¦£
½Ð°Ý¦p¦ó¥ÎVB±NEXCEL¸Ìªº¹Ï¤ù¶×¥X

·P¿E¸U¤À

luhpro

¦ý¬O¿é¥X¹Ï³£·|¦³²Ó²Óªº¥ÕÃä®Ø ¦n¹³¬O¹Ïªí¤u§@°Ï
¤£¾å±o¯à§_±N¦¹®Ø®ø°£©Î¬O¶Â¦â ...
ookook520 µoªí©ó 2011-10-26 02:01

·|¥X²{¥Õ¦âÃä®Ø¬O¦]¬°µ{¦¡¤¤¦³°µ¥X¦¹Ãä®Ø,
­Y¤£·Q­n¥X²{¦¹Ãä®Ø¥u­n§â©³¤U¨â¦æµ{¦¡¤¤ªº +8 ®³±¼§Y¥i :
.Width = PicTemp.Width + 8
.Height = PicTemp.Height + 8
§ï¦¨
.Width = PicTemp.Width
.Height = PicTemp.Height

ookook520

·PÁ¤j¤j
¦b¤U¤£¤Ó¤F¸Ñ±z©Ò´£¨Ñ¤§¤èªk
¦ý¦³°Ñ¦Ò¥t¤@ºØ
Sub ExportNumChart()

Const FName As String = "D:\My Documents\My Pics\Numbers.jpg"
Dim pic_rng As Range
Dim ShTemp As Worksheet
Dim ChTemp As Chart
Dim PicTemp As Picture

Application.ScreenUpdating = False

Set pic_rng = Worksheets("Numbers").Range("B1:F25")
Set ShTemp = Worksheets.Add

Charts.Add

ActiveChart.Location Where:=xlLocationAsObject, Name:=ShTemp.Name
Set ChTemp = ActiveChart
pic_rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture
ChTemp.Paste

Set PicTemp = Selection

With ChTemp.Parent
.Width = PicTemp.Width + 8
.Height = PicTemp.Height + 8
End With

ChTemp.Export Filename:="D:\My Documents\My Pics\Numbers.jpg", FilterName:="jpg"

Application.DisplayAlerts = False

ShTemp.Delete

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

----------------

¥i¥H¹F¦¨¿é¥X¹Ï¤ù
¦ý¬O¿é¥X¹Ï³£·|¦³²Ó²Óªº¥ÕÃä®Ø ¦n¹³¬O¹Ïªí¤u§@°Ï
¤£¾å±o¯à§_±N¦¹®Ø®ø°£©Î¬O¶Â¦â


·PÁ¤j¤j

Hsieh

¦^´_ 1# ookook520
http://chijanzen.net/wp/?p=289