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

[µo°Ý] Excel Chart¶K¨ìPPT®É¼ÐÃD¤å¦rµo¥ÍÂà¦V¡A½Ð°Ý¦p¦ó¸Ñ¨M?

[µo°Ý] Excel Chart¶K¨ìPPT®É¼ÐÃD¤å¦rµo¥ÍÂà¦V¡A½Ð°Ý¦p¦ó¸Ñ¨M?

½Ð°Ý¦U¦ì¡A§Ú±NExcelªºChart¹Ï½Æ»s¦¨¹Ï¤ù¶K»sPPT®É¡A·|µo¥Í¹Ï¤ù¼ÐÃD¤å¦rªºÂà¦V¡A
¥u­n¬OÂà90«×©Î270«×ªº¤å¦r¡A·|¦Û°Ê±N¤å¦rÂॿ¡A¦ý¦ì¸m«o¤£°Ê¡A
¦pªþ¹Ï¡A¥¿±`À³¸Ó¬O¥ªÃä¡AÂॿ¤]À³¸Ó¬ODPPM¡A¦ý¬O«o¦Û°ÊÂনMPPD¡A
¦³¸ÕµÛ±N½Æ»sªºChart¶K¦Ü¥t¤@¥÷Excel¡Aµ²ªG¬O¥¿½Tªº¡A¤£·|µo¥Í³oºØ°ÝÃD¡A
½Ð°Ý³oºØ±¡ªp¸Ó¦p¦ó¸Ñ¨M?

1.png 2.png

¨Ï¥Î¤U¦Cµ{¦¡½X
Dim appwk As PowerPoint.Application
Range("A1:B4").CopyPicture xlScreen, xlPicture '½Æ»sEXCEL¹Ï¤ù
With appwk.ActivePresentation.Slides(2) 'PPT²Ä¤G­¶
            .Shapes.PasteSpecial ppPasteMetafilePicture, msoCTrue '¶K¤W
End With

¦Û°Ý¦Ûµª
±N½Æ»s¤Î¶K¤Wªº¦a¤è§ï¥ÎÂI°}¹Ïªº¤è¦¡¡A¶K¹L¥hPPTªº¹Ï´N·|§¹¥þ·Óµe­±¤W§e²{¡C

Range("A1:B4").CopyPicture xlScreen, xlBitmap
With appwk.ActivePresentation.Slides(sPage + 1)
           .Shapes.PasteSpecial ppPasteBitmap, msoCTrue
End With

TOP

        ÀR«ä¦Û¦b : §Ñ¥\¤£§Ñ¹L¡A§Ñ«è¤£§Ñ®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD