- ©«¤l
- 2812
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2868
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-6-3
|
Sub Ex()
Dim Rng As Range, Shp As Shape
'«ü©wªº½d³ò
Set Rng = Range("D3:G9")
Rng.CopyPicture Format:=xlPicture '¤£n¥ÎxlBitmap
ActiveSheet.Paste '¥ý¶K¥X¹Ï¤ù
Set Shp = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
Shp.LockAspectRatio = msoTrue '«O«ù¹Ï¤ù¤ñ¨Ò
Shp.Width = Shp.Width * 2 '©ñ¤j¹Ï¤ù¿¼Æ
Shp.Copy
'·s¼W ¹Ïªí
With ActiveSheet.ChartObjects.Add(1, 1, Shp.Width, Shp.Height)
'.ShapeRange.ScaleWidth 1, 0
'.ShapeRange.ScaleHeight 1, 0
.Chart.Paste '¶K¤W ¹Ï¤ù
.Chart.Export Filename:=ThisWorkbook.Path & "\Test.jpg" '¶×¥X ¹Ï¤ù
.Delete '§R°£¹Ïªí
End With
Shp.Delete '§R¹Ï¤ù
End Sub
================================== |
|