Cách làm xuất hiện hình ảnh từ comment hoặc từ file khác

[xuanthanhsse]

Các cao thủ xin hỏi cách làm xuất hiện hình ảnh từ comment hoặc từ file khác.

 

[micarazavuska]

1.Bạn comment một thông tin bất kì.
2.Edit comment.
3.Ấn chuột phải vào ''viền khung'' của comment--->format comment.
4.Xuất hiện bảng Format comment. Chọn ''colors and lines--->colors--->Fill effects--->picture--->Select picture--->ok---> rồi ok thêm lần nữa.
Tạm thời tôi chỉ biết rứa.

 

[DOSNET]

1.Bạn comment một thông tin bất kì.
2.Edit comment.
3.Ấn chuột phải vào ''viền khung'' của comment--->format comment.
4.Xuất hiện bảng Format comment. Chọn ''colors and lines--->colors--->Fill effects--->picture--->Select picture--->ok---> rồi ok thêm lần nữa.
Tạm thời tôi chỉ biết rứa.

Bạn không đọc rõ yêu cầu đề bài, Chính tác giả đã làm được điều này rồi mà. Theo ý tác giả muốn có lẽ phải dùng VBA

 

[LikeIt]

Mình xin điều chỉnh tí chút cho dễ hiểu; bạn chọn insert comment /sau đó show comment đó lên rồi làm các bước như hướng dẫn #2

 

[xuanthanhsse]

Xuất hiên hình ảnh từ COMMENT hoặc sheet khác

Cảm on các bạn nhiều đã gửi bài cho mình.
Đúng như bạn DOSNET nói mình làm được các bước đó rồi trong file đính kèm. Mục đích của mình là tại 1 địa chỉ ô B2 gõ tên của hình ảnh đó (gán cho hình ảnh 1 là 12, hình ảnh 2 là 13, hình ảnh 4 là 14.... hình ảnh 8 là 20) thì hình ảnh đó hiện tại vùng B5. Hình ảnh ở đây có thể đựơc lấy từ COMMENT hoặc từ sheet khác của workbook. Mình nghĩ dùng công thức đơn thuần sẽ ko thực hiện đựơc. Mình xin gửi lại các bạn file dữ liệu đầy đủ. Và yêu cầu của mình, các bạn có thể viết giúp mình code VBA.

 

[Mr Okebab]

Cảm on các bạn nhiều đã gửi bài cho mình.
Đúng như bạn DOSNET nói mình làm được các bước đó rồi trong file đính kèm. Mục đích của mình là tại 1 địa chỉ ô B2 gõ tên của hình ảnh đó (gán cho hình ảnh 1 là 12, hình ảnh 2 là 13, hình ảnh 4 là 14.... hình ảnh 8 là 20) thì hình ảnh đó hiện tại vùng B5. Hình ảnh ở đây có thể đựơc lấy từ COMMENT hoặc từ sheet khác của workbook. Mình nghĩ dùng công thức đơn thuần sẽ ko thực hiện đựơc. Mình xin gửi lại các bạn file dữ liệu đầy đủ. Và yêu cầu của mình, các bạn có thể viết giúp mình code VBA.

Lấy hình ảnh :

    With Range("D2")
        .AddComment
        .Comment.Visible = True
        .Comment.Shape.Select True
        Selection.ShapeRange.Fill.UserPicture _
            "C:\Documents and Settings\Welcome\My Documents\My Pictures\meo khoc_1216318612.gif"
    End With

Xóa hình ảnh :

    With Range("D2")
        .Comment.Shape.Select True
        Selection.ShapeRange.Fill.Visible = msoFalse
    End With

Chú ý các hình thức bẫy lỗi (đã có Comment rồi mà vẫn Add; Không tìm thấy File . . )

Thân!

 

[xuanthanhsse]

Cám ơn anh Okebap nhiều, mình còn kém VBA nên chưa biết áp dụng ra sao, anh có thể hoàn thành vào file mình đính kém được không? Cảm ơn nhiều !

 

[Mr Okebab]

Cám ơn anh Okebap nhiều, mình còn kém VBA nên chưa biết áp dụng ra sao, anh có thể hoàn thành vào file mình đính kém được không? Cảm ơn nhiều !

Bạn thử thay đổi số năm ở Sheet Nam và Nu xem sao nhé

Lần sau nhớ mở Pass để người khác có thể giúp bạn.

Khi Picture nằm ở trong File thì bạn không dùng Comment được.

Thân!

 

[SA_DQ]

Thay hình trong comment của 1 ô từ các fíle hình

Giả thiết chúng ta có 10 files hình ảnh (từ Flower0.jpg - Flower9.jpg) trong thư mục D:/Picture;
Macro sẽ lấy hình tương ứng từ thư mục theo trị số tại [C12] & đem gán làm Comments cho ô [B2]
(Nếu bạn có trên 10 ảnh, thì sửa lại dòng lệnh 7 cho phù hợp).

Option Explicit
Sub ChangePicture()
 Dim jJ As Integer:                          Dim fSearch As Variant
 On Error Resume Next:                       ActiveSheet.Cells.ClearComments
 On Error GoTo 0
 Set fSearch = Application.FileSearch
 With fSearch
   .NewSearch:                               .LookIn = "D:\Picture"
7   .Filename = "Flower" & [c12].Value & ".jpg"
   If .Execute = 0 Then
      MsgBox "There were no files found."
   Else
      [b2].ClearComments
      ActiveSheet.[b2].AddComment.Text Text:=""
      ActiveSheet.[b2].Comment.Shape.Fill.UserPicture (.FoundFiles(1))
   End If
 End With
End Sub

 

[yeudoi]

Bạn xem thử file này nha