Cho hỏi chút - về thao tác hình ảnh trong Excel!

Thảo luận trong 'Ứng dụng Excel' bắt đầu bởi Van Wan Lee, 27 Tháng chín 2005.

4,170 lượt xem

  1. Van Wan Lee

    Van Wan Lee Thành viên thân thiết

    Bài viết:
    31
    Đã được thích:
    0
    Nơi ở:
    VietNam
    Excel có tính năng nào có thể bóc hình ra như chương trình trúc xanh của đài chuyền hình không vậy?
     
    #1
  2. workman

    workman Thành viên hoạt động

    Bài viết:
    372
    Đã được thích:
    0
    Nơi ở:
    Ho Chi Minh
    Hi hi...

    SA DQ ơi, hỏi đúng sở trường của bác rồi nè. Bác múa tay ra mấy tuyệt chiêu để anh em hoan hô cái nào...:)
     
    #2
  3. Van Wan Lee

    Van Wan Lee Thành viên thân thiết

    Bài viết:
    31
    Đã được thích:
    0
    Nơi ở:
    VietNam
    Bác SA DQ có bí quyết nào múa vài đường cho em đi.
    Cảm ơn Bác rất nhiều.
     
    #3
  4. SA_DQ

    SA_DQ Thành viên thân thiết

    Bài viết:
    431
    Đã được thích:
    37
    Nơi ở:
    HCM city
    Câu lạc bộ banh da hay sao đây, Workman?!

    Đừng nghe cầu thủ Workman, nha!
    Chuyện này mình mới thử thôi; nói sơ lược, sai phần nào, ở đâu ta thảo luận tiếp!
    Trước tiên bạn phải có ít nhất 2 ảnh được để ở thư mục nào đó đã rõ;
    Bạn mở Workbook lên; Vô Option -> Macro & ghi 1 macro mới với tên tuỳ chọn (VD HinhAnh); Bạn vô menu View -> ToolBar & chọn thanh Picture
    Trước tiên xem lần lượt các nút lệnh nó làm gì; sau đó bạn insert bức tranh lớn vô trước; sau đó đến bức nhỏ; (Bạn đừng chỉnh sửa kích thước ảnh nhiều; mọi hành động của bạn đều bị ghi đó nha! & Macro sẽ khó đọc sau này); Hành động kỳ lạ cuối cùng của bạn là Xóa thử bức ảnh nhỏ ra khỏi Excel; Ngưng thu Macro; Vô menu Tool để xem nội dung macro; Bạn nghiền ngẫm Macro này (nhấm nháp) đến khi nào thực sự bí thì hỏi tiếp;
    Vài lời chỉ mong giúp được bạn & khuyên bạn đừng nghe cái anh bạn WorkMan đấy hơn nữa,nha! :dzo:
     
    Last edited: 30 Tháng chín 2005
    #4
  5. workman

    workman Thành viên hoạt động

    Bài viết:
    372
    Đã được thích:
    0
    Nơi ở:
    Ho Chi Minh
    Trời đất, tôi có lòng tốt mà lại bị hiểu lầm. Thế có chết tôi không.

    Rõ ràng bác SA DQ là một cao thủ trong nghề viết game Excel mà bác cứ khiêm tốn. Muốn mời bác đi uống cà phê tạ lỗi, nhưng bác ở mãi tận Đồng Nai, xa quá. Thôi thì cụng ly với tôi trên mạng vậy :dzo: :dzo: :dzo:
     
    #5
  6. Van Wan Lee

    Van Wan Lee Thành viên thân thiết

    Bài viết:
    31
    Đã được thích:
    0
    Nơi ở:
    VietNam
    không ra được gì cả.

    Em không làm được bác ạ.
    Bác đã làm thử bao giờ chưa?
     
    #6
  7. SA_DQ

    SA_DQ Thành viên thân thiết

    Bài viết:
    431
    Đã được thích:
    37
    Nơi ở:
    HCM city
    Xem Phần sau (ngày 13/10/05)
    :1luvu: To Workman: Trong 2 trò chơi mình gỏi lên thuần tuý đều là các Sheets thôi mà có ảnh nào đâu?! Hẹn gặp
     
    Last edited: 13 Tháng mười 2005
    #7
  8. workman

    workman Thành viên hoạt động

    Bài viết:
    372
    Đã được thích:
    0
    Nơi ở:
    Ho Chi Minh
    Chết tôi rồi, bị đá phản lưới nhà. Tôi mà luyện được chiêu này thì có mà ... đi bằng đầu như Âu Dương Phong. :biggrin: :ukliam2:
     
    #8
  9. SA_DQ

    SA_DQ Thành viên thân thiết

    Bài viết:
    431
    Đã được thích:
    37
    Nơi ở:
    HCM city
    Đây là đoạn mã thu được = macro!

    Sub GhiHinh()
    ' Macro recorded 10/13/2005 by LeThi Thom
    '1Cho hiện Thanh ToolBar:

    Application.CommandBars("Picture").Visible = True
    '2 Insert ảnh thứ nhất & chỉnh kích thước nhỏ lại
    ActiveSheet.Pictures.Insert( _
    "C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Water lilies.jpg" _
    ).Select
    Selection.ShapeRange.ScaleHeight 0.23, msoFalse, msoScaleFromTopLeft
    '3 Insert ảnh thứ nhì & chỉnh kích thước giảm chiều cao:
    ActiveSheet.Pictures.Insert( _
    "C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Sunset.jpg" _
    ).Select
    Selection.ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.72, msoFalse, msoScaleFromBottomRight
    '4 Xóa thử một hình trước, sau khi giảm kích thước H2 để thấy H1
    ActiveSheet.Shapes("Picture 1").Select
    Selection.Delete
    End Sub
    Không nói ngoa đâu nha!
    Thư mục chứa hình ở mỗi máy có thể # nhau - Lưu ý!
     
    Last edited: 18 Tháng mười 2005
    #9

Chia sẻ trang này