em xin code vba move shape,image khi mình scroll ạ.

Liên hệ QC

AlanEvol

Thành viên mới
Tham gia
19/8/21
Bài viết
23
Được thích
3
Em muốn mỗi lần mình ScrollRow hay ScrollColumn thì shape cố định trên vị trí của màn hình (so với mình nhìn) hay shape move theo mình khi mình scroll ạ.
Bài đã được tự động gộp:

Em có tham khảo được code này nhưng em chạy nó không hoạt động. Mong mọi người chỉ giáo
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim myShape As Shape

Set myShape = Me.Shapes("X")

With Me.Cells(ActiveWindow.ScrollRow, ActiveWindow.ScrollColumn)
myShape.Top = .Top
myShape.Left = .Left
End With

End Sub
 
Lần chỉnh sửa cuối:
Mục đích cuối cùng của bạn là gì?
 
Upvote 0
Nút lệnh thì đưa lên Ribbon, không có ai gán vào shape rồi kéo nó chạy tới chạy lui vậy đâu.
 
Upvote 0
Chắc giống bài này hả?


Để ở dòng 1-2 rồi đóng băng lại là được.
 
Upvote 0
Chắc giống bài này hả?


Để ở dòng 1-2 rồi đóng băng lại là được.
Không giống vậy bác ơi
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom