- ©«¤l
- 19
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- Vista
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2010-5-14
- ³Ì«áµn¿ý
- 2020-7-23
|
¥»©«³Ì«á¥Ñ Jevon ©ó 2013-1-27 17:54 ½s¿è
¦^´_ 1# t8899
³o¬O°Ñ¦Ò§O¤Hªº°µªk,
¨S¦³100%²Å¦X±zªº»Ý¨D,
½Ð¨ä¥L°ª¤â¸É±jÂP...
±N¤U¦Ccode©ñ¤J½s¿è¾¹ªº¤u§@ªí¤º
¦A±N±zªº¹Ï¤ù¦WºÙ³]©w¬°Pic1- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- Dim MyPic As Object
- Dim NewTop As Double
- Dim NewLeft As Double
- Dim TopRightCell As Range
- With ActiveWindow.VisibleRange
- Set TopRightCell = .Cells(1, 16)
- End With
- Set MyPic = ActiveSheet.Shapes("Pic1")
- NewTop = TopRightCell.Top + MyPic.Height - 150
- NewLeft = TopRightCell.Left
- With MyPic
- .Top = NewTop
- .Left = NewLeft
- End With
- End Sub
½Æ»s¥N½X |
|