- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 6# li_hsien
¦^´_ 8# GBKEE
ɥΪO¤jªº¨Ò¤l¡A¦]¦Û¤v°õ¦æ«á ¼e©M°ª¤´µLªk©MÀx¦s®æ¤@¼Ë
ì¦]¬O·s¼Wªº¹Ï¥Üªø¼e¤ñ·|Âê©w
²`¤J¸Óª«¥óªºÄÝ©Ê´M§ä
µo²{¥i¥H¨Ï¥Î.ShapeRange.LockAspectRatio = msoFalse ¸Ñ°£Âê©w- Sub Ex()
- Dim i
- i = 5
- With ActiveSheet.OLEObjects.Add(Filename:="D:\test.xls", Link:=False, DisplayAsIcon:=True, _
- IconFileName:="C:\WINDOWS\Installer\{AC76BA86-7AD7-1028-7B44-A93000000001}\PDFFile_8.ico", _
- IconIndex:=0) , IconLabel:=Range("A" & i))
- .Top = Range("B" & i).Top '«ü©w³»³¡¦ì¸m
- .Left = Range("B" & i).Left '«ü©w¥kÃä¦ì¸m
- .ShapeRange.LockAspectRatio = msoFalse
- .Height = Range("B" & i).Height '«ü©w°ª«×
- .Width = Range("B" & i).Width '«ü©w¼e«×
- End With
- End Sub
½Æ»s¥N½X |
|