Thay đổi picture cùng lúc cho tất cả các sheet (2 người xem)

[ExcelQN]

Tôi có một file gồm 4 sh, trên mỗi sh có hai pic 1 và 2. Tôi muốn đổi hai pic này bằng hai pic khác ở tất vả các sh. Nhờ các anh chị giúp. Xin cảm ơn

 

[jack nt]

Tôi có một file gồm 4 sh, trên mỗi sh có hai pic 1 và 2. Tôi muốn đổi hai pic này bằng hai pic khác ở tất vả các sh. Nhờ các anh chị giúp. Xin cảm ơn

bạn nên dùng Image chứa các hình, Image1 chứa Picture1, Image2 chứa Picture2, ...

Image1.Picture = Image3.Picture
Image2.Picture = Image4.Picture

cũng có thể delete hình cũ và insert hình mới vào vị trí của hình cũ (với điều kiện bạn phải có file hình)

 

[Pirate]

Bạn thử code này xem sau

Sub TestInsertPictureInRange() InsertPictureInRange "C:\FolderName\PictureFileName.gif", _
Range("B5:D10")
End Sub

Sub InsertPictureInRange(PictureFileName As String, TargetCells As Range)
' inserts a picture and resizes it to fit the TargetCells range
Dim p As Object, t As Double, l As Double, w As Double, h As Double
If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
If Dir(PictureFileName) = "" Then Exit Sub
' import picture
Set p = ActiveSheet.Pictures.Insert(PictureFileName)
' determine positions
With TargetCells
t = .Top
l = .Left
w = .Offset(0, .Columns.Count).Left - .Left
h = .Offset(.Rows.Count, 0).Top - .Top
End With
' position picture
With p
.Top = t
.Left = l
.Width = w
.Height = h
End With
Set p = Nothing End Sub