- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
        
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-4-24 05:59 ½s¿è
¦^´_ 3# baconbacons - Option Explicit
- Sub Ex()
- Dim S As Pictures, C(1 To 4) As Single
- 'Single ¸ê®Æ«¬ºA Single (³æºë«×¯BÂI¼Æ) ÅܼƫY¥H IEEE 32 ¦ì¤¸ (4 Ӧ줸²Õ)¯BÂI¼Æ¦rªº§Î¦¡Àx¦s¡A
- '¥¦ªº½d³ò¦bt¼Æªº®ÉÔ¬O±q -3.402823E38 ¨ì -1.401298E-45¡A¦Ó¦b¥¿¼Æªº®ÉÔ¬O±q 1.401298E-45 ¨ì 3.402823E38¡CSingle ªº«¬ºA«Å§i¦r¤¸¬° !¡C
-
- Set S = ActiveSheet.Pictures 'Pictures :·Ó¤ùª«¥óªº¶°¦X
- MsgBox S.Count
-
- '§Ú¦pªG·Qn§R°£¸Ó¤u§@ªí¤¤ªº²Ä27±i¬Û¤ù
- S(27).Delete
-
- '·s¼W²Ä39±i¬Û¤ù
- '°Ñ¦Ò http://forum.twbts.com/thread-11828-1-1.html
-
- '±N²Ä51±i¬Û¤ù»P²Ä54±i¬Û¤ù¹ï½Õ
- With S(54) '·Ó¤ùª«¥óªº¶°¦Xªº²Ä54±i·Ó¤ù
- C(1) = .Left 'C(1)->Ū¨ú²Ä54±i·Ó¤ùªºLeft¼ÆÈ
- C(2) = .Top 'C(2)->Ū¨ú²Ä54±i·Ó¤ùªºTop¼ÆÈ
- C(3) = .Width 'C(3)->Ū¨ú²Ä54±i·Ó¤ùªºWidth¼ÆÈ
- C(4) = .Height 'C(4)->Ū¨ú²Ä54±i·Ó¤ùªºHeight¼ÆÈ
- .Left = S(51).Left 'Left³]©w²Ä51±i·Ó¤ùªºLeft
- .Top = S(51).Top 'Top³]©w²Ä51±i·Ó¤ùªºTop
- .Width = S(51).Width 'Width³]©w²Ä51±i·Ó¤ùªºWidth
- .Height = S(51).Height 'Height³]©w²Ä51±i·Ó¤ùªºHeight
- End With
- With S(51) '·Ó¤ùª«¥óªº¶°¦Xªº²Ä51±i·Ó¤ù
- .Left = C(1) 'Left¼ÆȬ° C(1) ,S(54)¥ý«eªºLeft
- .Top = C(2) 'Top¼ÆȬ° C(2) ,S(54)¥ý«eªºTop
- .Width = C(3) 'Width¼ÆȬ° C(3) ,S(54)¥ý«eªºWidth
- .Height = C(4) 'Height¼ÆȬ° C(4) ,S(54)¥ý«eªºHeight
- End With
- End Sub
½Æ»s¥N½X |
|