[發問] 如何把P欄到R欄給固定住，往下移動時只有A欄到O欄可移動

t8899

如何把P欄到R欄給固定住，往下移動時只有A欄到O欄可移動
涷結視窗是往右被涷結，往下無法涷結???

t8899

如何把P欄到R欄給固定住，往下移動時只有A欄到O欄可移動
涷結視窗是往右被涷結，往下無法涷結???
t8899 發表於 2012-11-17 15:05

目的 P1:R7 是一張圖片
往下移動時(列)如何讓這張圖片不跟著移動

Hsieh

回復 2# t8899
視窗分割嗎?

   

下載 (170.42 KB)

2012-11-17 21:53

t8899

回復  t8899
視窗分割嗎?
Hsieh 發表於 2012-11-17 21:53

列1到列7 不能涷結

winint1

這樣可以嗎
是你需要的樣子嗎

Book1.rar (15.5 KB)

下載次數: 10

2012-11-18 23:52

t8899

這樣可以嗎
是你需要的樣子嗎
winint1 發表於 2012-11-18 23:53

抱歉，我等級不夠無法下載附件，可否寄到我的信箱?
t2822.tw@yahoo.com.tw

Hsieh

回復 6# t8899


    物件必須絕對依附於工作表上
你的需求是要讓物件成為浮動，這是做不到的效果
唯有利用自訂表單來存放這些物件
然後將自訂表單製作成浮動表單

winint1

我有寄檔案給您
不知道是不是您需要的樣子

ps : 我也是小學生，一起加油喔 ......

yes93021201

試試將游標停於P8---點選凍結視窗

Jevon

回復 1# t8899
這是參考別人的做法,
沒有100%符合您的需求,
請其他高手補強嚕...

將下列code放入編輯器的工作表內
再將您的圖片名稱設定為Pic1

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim MyPic As Object
   
3. Dim NewTop As Double
   
4. Dim NewLeft As Double
   
5. Dim TopRightCell As Range
   
6. 
   
7. With ActiveWindow.VisibleRange
   
8.     Set TopRightCell = .Cells(1, 16)
   
9. End With
   
10. 
    
11. Set MyPic = ActiveSheet.Shapes("Pic1")
    
12. NewTop = TopRightCell.Top + MyPic.Height - 150
    
13. NewLeft = TopRightCell.Left
    
14. 
    
15. With MyPic
    
16.     .Top = NewTop
    
17.     .Left = NewLeft
    
18. End With
    
19. End Sub

複製代碼