- 帖子
- 19
- 主題
- 0
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- Vista
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 註冊時間
- 2010-5-14
- 最後登錄
- 2020-7-23
 
|
10#
發表於 2013-1-27 17:51
| 只看該作者
本帖最後由 Jevon 於 2013-1-27 17:54 編輯
回復 1# t8899
這是參考別人的做法,
沒有100%符合您的需求,
請其他高手補強嚕...
將下列code放入編輯器的工作表內
再將您的圖片名稱設定為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
|
|
發表於 2012-11-17 21:53
| 
