GBKEE

¦^´_ 6# li_hsien

¥t¥~§Ú·Q½Õ¾ã¥¦§e²{¥X¨Óªº¹Ï¥Ü¤j¤p
¥[¤FWidth:=57 ¨S¦³®ÄªG  

VBA OLEObjects.Add ªº½d¨Ò

1. '®M¥Î¦Ü OLEObjects ª«¥ó®É¡C
   
2. '¥»½d¨Ò¦b Sheet1 ¤¤·s¼W¤@­Ó Microsoft Word OLE ª«¥ó¡C
   
3. 
   
4. ActiveWorkbook.Worksheets("Sheet1").OLEObjects.Add _
   
5.     ClassType:="Word.Document"
   
6. 
   
7. '¥»½d¨Ò¬°²Ä¤@±i¤u§@ªí·s¼W«ü¥O«ö¶s¡C
   
8. Worksheets(1).OLEObjects.Add ClassType:="Forms.CommandButton.1", _
   
9.     Link:=False, DisplayAsIcon:=False, Left:=40, Top:=40, _
   
10.     Width:=150, Height:=10

½Æ»s¥N½X

§A¥i¥H«ü©w

1. Sub Ex()
   
2.     Dim i
   
3.     i = 5
   
4.     With ActiveSheet.OLEObjects.Add(Filename:="D:\test.xls", Link:=False,  DisplayAsIcon:=True, _
   
5.         IconFileName:="C:\WINDOWS\Installer\{AC76BA86-7AD7-1028-7B44-A93000000001}\PDFFile_8.ico", _
   
6.         IconIndex:=0 , IconLabel:=Range("A" & i))
   
7.         .Top = Range("B" & i).Top        '«ü©w³»³¡¦ì¸m
   
8.         .Left = Range("B" & i).Left      '«ü©w¥kÃä¦ì¸m
   
9.         .Height = Range("B" & i).Height  '«ü©w°ª«×
   
10.         .Width = Range("B" & i).Width    '«ü©w¼e«×        
    
11.     End With   
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 10# li_hsien

   

³£¤£¬O«ü©w¹ê»Úªºªø¼e¡A¦Ó¶È¬O«ü¬Y­ÓÀx¦s®æªº¬Û¹ï¦ì¸m§a???

¹ïªº¥Ü½d°t¦XÀx¦s®æªºªø¼e°ª,§A¤]¥i¥Hµ¹¥¦«ü©wªº¼Æ¦r

GBKEE

¦^´_ 13# stillfish00
Ex()ªºµ{¦¡½X¥Ü½d¨Ì«ü©wÀx¦s®æªºªø¼e©M°ª,¨Ó«ü©wª«¥óªºªø¼e°ª.

¼e©M°ª¤´µLªk©MÀx¦s®æ¤@¼Ë!!!  ¬°¦ó·|¦p¦¹»¡???

GBKEE

¦^´_ 15# stillfish00

   

´N¬O½Õ¾ã°ª®É¡A¥L¦Û¤v·|¦Û°Êµ¥¤ñ¨Ò½Õ¾ã¼e
¦Ó¦A¤@¦¸½Õ¾ã¼e®É¡A¥L¤S¦Û°Êµ¥¤ñ¨Ò½Õ¾ã°ª...
§A­Ì¤£·|³o¼Ë¶Ü?

2003ª©ªº¤£·|°Ú

¤U¸ü (64.61 KB)

2014-10-27 19:51