½Ð°Ý¦p¦ó¥ÎVB±NEXCEL¸Ìªº¹Ï¤ù¶×¥X
- ©«¤l
- 16
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 23
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 20
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-5-27
- ³Ì«áµn¿ý
- 2012-6-27
|
½Ð°Ý¦p¦ó¥ÎVB±NEXCEL¸Ìªº¹Ï¤ù¶×¥X
½Ð¦U¦ì¤j¤jÀ°¦£
½Ð°Ý¦p¦ó¥ÎVB±NEXCEL¸Ìªº¹Ï¤ù¶×¥X
·P¿E¸U¤À |
|
|
|
|
|
|
- ©«¤l
- 16
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 23
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 20
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-5-27
- ³Ì«áµn¿ý
- 2012-6-27
|
·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 |
|
|
|
|
|
|