Note: The other languages of the website are Google-translated. Back to English

Làm cách nào để chèn nhiều ảnh và thay đổi kích thước chúng cùng một lúc trong Excel?

Chúng ta có thể dễ dàng chèn một ảnh vào Excel, nhưng nếu bạn cần chèn nhiều ảnh cùng một lúc để có thể tiết kiệm nhiều thời gian, bạn có thể làm thế nào?


Chèn nhiều ảnh và thay đổi kích thước hàng loạt bằng tính năng Chèn ảnh

Chúng ta có thể chèn hàng loạt ảnh bằng tính năng (Chèn) Ảnh trong Excel, rồi thay đổi kích thước chúng đồng thời. Vui lòng làm như sau:

1. Trong trang tính, hãy nhấp vào Chèn > Hình ảnh.

2. Trong hộp thoại Chèn ảnh, vui lòng mở thư mục chứa ảnh bạn sẽ chèn, chọn nhiều ảnh nếu bạn cần và nhấp vào Chèn cái nút. Xem ảnh chụp màn hình:
Chú thích: Giữ Ctrl chính, bạn có thể chọn nhiều hình ảnh không liền kề bằng cách nhấp vào chúng từng cái một; giữ sự thay đổi , bạn có thể chọn nhiều hình ảnh liền kề bằng cách nhấp vào hình ảnh đầu tiên và hình ảnh cuối cùng.

Bây giờ hình ảnh được chèn hàng loạt và xếp chồng trong trang tính.

3. Giữ những ảnh này được chọn và thay đổi kích thước hàng loạt bằng cách nhập số mới vào cả hai Chiều rộngChiều cao hộp trong kích cỡ nhóm trên Định dạng chuyển hướng. Xem ảnh chụp màn hình:

Bây giờ tất cả các hình ảnh đã chèn sẽ được thay đổi cùng một kích thước cùng một lúc.

4. Hiện tại, bạn cần phải di chuyển từng bức tranh riêng biệt đến một vị trí vừa vặn theo cách thủ công.

Chú thích: Nếu có hàng chục bức tranh xếp chồng lên nhau, bạn sẽ khá mất thời gian để tự di chuyển chúng cho vừa chỗ.

Chèn hàng loạt nhiều ảnh phù hợp với nội dung ô trong Excel

Mô hình Khớp nhập ảnh tính năng của Kutools cho Excel, là một công cụ tuyệt vời có thể nhập hàng loạt và chèn nhiều hình ảnh dựa trên nội dung ô và thay đổi kích thước hình ảnh đã nhập giống như kích thước ô hoặc thành kích thước được chỉ định một cách dễ dàng.


kết hợp quảng cáo các bức ảnh đã nhập 01

Kutools cho Excel - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Bản dùng thử miễn phí đầy đủ tính năng 30-ngày, không cần thẻ tín dụng! Get It Now

Chèn nhiều ảnh và thay đổi kích thước hàng loạt với OneNote

Để tránh di chuyển từng ảnh xếp chồng lên nhau, phương pháp này giới thiệu một thủ thuật khác để chèn nhiều ảnh với sự trợ giúp của OneNote. Vui lòng làm như sau:

1. Khởi chạy OneNote và tạo một trang mới. Và sau đó nhấp vào Chèn > Hình ảnh.

2. Trong hộp thoại Chèn ảnh, vui lòng mở thư mục chứa ảnh bạn sẽ chèn, chọn nhiều ảnh nếu bạn cần và nhấp vào Chèn cái nút. Xem ảnh chụp màn hình:
Chú thích: Giữ Ctrl chính, bạn có thể chọn nhiều hình ảnh không liền kề bằng cách nhấp vào chúng từng cái một; giữ sự thay đổi , bạn có thể chọn nhiều hình ảnh liền kề bằng cách nhấp vào hình ảnh đầu tiên và hình ảnh cuối cùng.

doc chèn nhiều hình ảnh OneNote 032

3. nhấn Ctrl + A các phím để chọn tất cả ảnh đã chèn trong OneNote, sau đó bấm Ctrl + C phím để sao chép chúng.

4. Truy cập trang tính trong Excel và nhấn Ctrl + V các phím để dán ảnh vào trang tính. Bây giờ tất cả các hình ảnh được dán theo chiều dọc như ảnh chụp màn hình bên trái.

5. Chọn bất kỳ một trong các hình ảnh và nhấn Ctrl + A phím để chọn tất cả chúng. Sau đó, thay đổi kích thước hình ảnh hàng loạt bằng cách nhập các số mới vào cả hai Chiều rộngChiều cao hộp trong kích cỡ nhóm trên Định dạng chuyển hướng. Xem ảnh chụp màn hình:

Giờ đây, tất cả các hình ảnh được chỉ định đều được chèn vào Excel và thay đổi kích thước hàng loạt thành cùng một kích thước.


Chèn nhiều ảnh vào Excel với mã VBA

Với mã VBA sau, bạn có thể chèn nhiều ảnh vào từng ô trong tệp Excel.

1. Chọn ô đầu tiên của dải ô đích mà bạn muốn chèn ảnh.

2. Giữ ALT + F11 chìa khóa và nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

3. Nhấp chuột Chèn > Mô-đunvà dán macro sau vào Cửa sổ mô-đun.

Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4. Sau đó nhấn F5 phím để chạy mã này.

5. Trong hộp thoại Mở, vui lòng mở thư mục chứa ảnh bạn muốn chèn, chọn nhiều ảnh bạn sẽ chèn và nhấp vào Mở cái nút. Và tất cả các hình ảnh đã chọn đã được nhập vào lựa chọn của bạn dựa trên kích thước ô. Xem ảnh chụp màn hình:


Chèn nhiều hình ảnh và tự động điều chỉnh chúng với Kutools cho Excel

Kutools cho Excel'S Nhập ảnh tiện ích có thể giúp bạn nhanh chóng chèn nhiều ảnh vào Excel dựa trên kích thước ô hoặc kích thước ảnh. Bạn cũng có thể chỉ định chiều cao và chiều rộng của hình ảnh khi bạn cần.

Kutools cho Excel - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Bản dùng thử miễn phí đầy đủ tính năng 30-ngày, không cần thẻ tín dụng! Get It Now

1. Nhấp chuột Kutools Plus > Nhập khẩu xuất khẩu > Nhập ảnh, xem ảnh chụp màn hình:

2. Trong Nhập ảnh hộp thoại, vui lòng làm như sau:
(1) Chỉ định thứ tự hiển thị của ảnh từ Nhập đơn hàng danh sách thả xuống, bạn có thể chọn Điền vào ô theo chiều dọc sau ô or Điền vào ô theo chiều ngang sau ô.
(2) Nhấp vào Thêm để chọn tệp ảnh hoặc thư mục để thêm ảnh vào danh sách Ảnh. Và tất cả hình ảnh bạn đã chọn sẽ được liệt kê trong hộp danh sách.
(3) Nhấp vào Nhập kích thước Nút;

3. Bây giờ trong Nhập kích thước hình ảnh , bạn có thể chọn kích thước hình ảnh phù hợp với nhu cầu của bạn. Xem ảnh chụp màn hình:

4. Sau khi xác định kích thước hình ảnh, vui lòng nhấp vào OK để đóng hộp thoại này và quay lại Nhập ảnh thoại, bấm Nhập khẩu để nhập hình ảnh.

5. Trong hộp thoại Nhập ảnh mới, vui lòng chọn ô đầu tiên của dải ô đích mà bạn sẽ chèn ảnh và nhấp vào OK .

Hiện tại, tất cả các ảnh đã chọn của bạn đã được chèn vào các ô của bạn từ ô hiện hoạt theo chiều dọc hoặc chiều ngang. Xem ảnh chụp màn hình bên phải:

Mô hình Nhập ảnh tính năng của Kutools cho Excel được thiết kế để chèn một loạt ảnh đồng thời với kích thước ô phù hợp, kích thước được chỉ định hoặc kích thước riêng của ảnh trong Excel. Có một bản dùng thử miễn phí!


Chèn nhiều hình ảnh phù hợp với tên của chúng bằng Kutools cho Excel

Kutools cho Excel cũng hỗ trợ một kịch bản Khớp nhập ảnh tính năng để khớp ảnh và nội dung ô và chỉ chèn hàng loạt ảnh đã khớp trong Excel.

Kutools cho Excel - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Bản dùng thử miễn phí đầy đủ tính năng 30-ngày, không cần thẻ tín dụng! Get It Now

1. Chọn các ô tên ảnh mà bạn muốn chèn các ảnh phù hợp của chúng và nhấp vào Kutools Plus > Nhập khẩu xuất khẩu > Khớp nhập ảnh. xem ảnh chụp màn hình:

2. Trong hộp thoại Match Import Pictures hiện ra, vui lòng thực hiện như sau:
(1) Chỉ định thứ tự hiển thị của ảnh từ Nhập đơn hàng danh sách thả xuống;
(2) Nhấp vào Thêm để thêm ảnh vào hộp danh sách ảnh. Đối với thông tin của bạn, chỉ những hình ảnh phù hợp sẽ được liệt kê ra.
(3) Sau đó nhấp vào Kích thước nhập khẩu .

3. Bây giờ trong Nhập kích thước hình ảnh , bạn có thể chọn kích thước hình ảnh phù hợp với nhu cầu của mình và nhấp vào Ok cái nút. Xem ảnh chụp màn hình:

4. Bây giờ bạn trở lại Nhập ảnh thoại, bấm Nhập khẩu để nhập hình ảnh.

5. Trong hộp thoại Match Import Pictures xuất hiện, vui lòng chỉ định ô đầu tiên của dải ô đích mà bạn sẽ chèn ảnh và nhấp vào OK cái nút. Xem ảnh chụp màn hình:

Cho đến nay, tất cả các hình ảnh được chèn vào các ô dựa trên tên họ hàng của chúng. Xem ảnh chụp màn hình bên phải:

Mô hình Khớp nhập ảnh tính năng của Kutools cho Excel có thể giúp người dùng Excel nhanh chóng lọc ảnh dựa trên các giá trị ô và sau đó chèn những ảnh này hàng loạt. Ngoài ra, những hình ảnh phù hợp này có thể được tự động thay đổi kích thước thành kích thước được chỉ định hoặc kích thước ô. Có một bản dùng thử miễn phí!


Demo: Chèn nhiều ảnh và thay đổi kích thước chúng cùng một lúc trong Excel

Kutools cho Excel bao gồm hơn 300 công cụ tiện dụng cho Excel, dùng thử miễn phí không giới hạn trong 30 ngày Dùng thử miễn phí ngay!      Mua ngay!


Các bài liên quan


Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (47)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hướng dẫn với tiêu đề: Chèn nhiều hình ảnh vào Excel với mã VBA đơn giản là nhanh chóng và hiệu quả tuyệt vời !!! đây là một giải pháp thay thế tốt để mua và cài đặt các plugin. Đây là bình luận đầu tiên của tôi trên mạng !! kudo!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi có thể sử dụng mô-đun InsertPictures và hoạt động bình thường với jpg. Tuy nhiên, nó không muốn hoạt động cho PNG. Bạn có thể vui lòng tư vấn? Trân trọng, Lawrence
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Trong chủ đề đầu tiên "Chèn nhiều ảnh vào Excel với mã VBA", làm cách nào để chèn một ảnh vào hai ô. ví dụ: hình ảnh đầu tiên sẽ được chèn vào ô A1 và A2, hình ảnh thứ hai sẽ được chèn vào ô A3 và A4, v.v.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
hỗ trợ tốt cho Excel ..... bạn gyus đang thực sự giúp tiết kiệm thời gian. cảm ơn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bài viết tuyệt vời! Nhưng tôi có những cách khác để làm điều tương tự ..... ========================================= ============ Sub ipic () Dim i As Integer For i = 2 To 10 Cells (i, 1). Chọn Dim picname As String picname = Cells (i, 2) ActiveSheet.Pictures. Insert ("F: \ Ram-PC \ Macro \ MyImage \" & picname & ".jpg"). Chọn With Selection .Left = ActiveCell.Left .Top = ActiveCell.Top .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 34 # .ShapeRange.Width = 80 # End With Next Range ("a1"). Chọn End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có phiên bản Kuttools cho Mac không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có thể sửa đổi mã vba đó để chèn 4 hình ảnh trong một patern dạng lưới như sau: pic1 trong A1, pic2 trong A2, pic3 trong B1 và ​​pic4 trong B2 không? Xe tăng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
đừng bận tâm, tôi đã tìm thấy cách làm điều đó :)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Bạn có thể vui lòng chia sẻ mã đã sửa đổi không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sub InsertPictures () 'Update 20140513 Dim PicList () As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.GetOpenFilename (PicFormat, MultiSelect: = True) xColIndex = Application.ActiveCell.Column If IsArray (PicList) Sau đó xRowIndex = Application.ActiveCell.Row Đối với lLoop = LBound (PicList) Đến UBound (PicList) Đặt Rng = Ô (xRowIndex, xColIndex) Đặt sShape = ActiveSheet.Shapes.AddPicture (PicList (lsoCTFalop) , Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn có thể vui lòng giúp tôi sửa đổi mã để chèn cột và hàng đã hợp nhất không. Sub InsertPictures () 'Update 20140513 Dim PicList () As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.Get OpenFilename (Pi cFormat, MultiSelect: = True) xColIndex = Application.ActiveCell. Cột If IsArray (PicList) Thì xRowIndex = Application.Act iveCell.Row Đối với lLoop = LBound (PicList) Đến UBound (PicList) Đặt Rng = Ô (xRowIndex, xColIndex) Đặt sShape = ActiveSheet.Sha pes.AddPicture (PicList) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
chọn các ô và thay đổi kích thước chúng theo chiều rộng và chiều cao theo nhu cầu của bạn .. nếu bạn có mười bức ảnh, hãy chọn mười ô trở lên, hãy chọn nhiều hơn .. !! sau đó nhấn Alt + F11, sau đó nhấp vào CHÈN SAU đó nhấp vào MODULE SAU ĐÓ DỪNG MÃ SAU ĐÂY NHƯ Ý .. Sub InsertPictures () 'Update 20140513 Dim PicList () As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.GetOpenFilename (PicFormat, MultiSelect: = True) xColIndex = Application.ActiveCell.Column Nếu IsArray (PicList) Thì xRowIndex = Application.ActiveCell.Row Đối với lLoop = LBound (PicList) Đến UBound (PicList) Đặt Rng = Ô ( xRowIndex, xColIndex) Đặt sShape = ActiveSheet.Shapes.AddPicture (PicList (lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex Sub + 1 Next End If MÃ TRÊN NHẤN F5 .. SAU ĐÓ CHỌN CÁC BỘ PHẬN TỪ MÁY TÍNH Ở ĐÂU BAO GIỜ CÓ. TỐI ƯU UR CẦN. VẬY NẾU BẠN CHƯA LƯU SỔ LÀM VIỆC THÌ NÓ SẼ HỎI LƯU. NẾU U ĐÃ TIẾT KIỆM NÓ. VẬY CÔNG VIỆC CỦA UR LÀ HY VỌNG NÀY GIÚP ĐƯỢC .. Ali .. !!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn rất nhiều, nó hoạt động
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào EXcel Masters, tôi có 2 bảng excel. Một với hơn trăm Hình ảnh và mô tả của hình ảnh trong ô bên cạnh nó. Tờ còn lại sau khi lựa chọn có lẽ còn lại 40 mô tả về nó. Làm thế nào tôi có thể chuyển các hình ảnh sang trang tính này theo lựa chọn của tôi. Cảm ơn al
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
hoặc bạn sử dụng trực tiếp image-xls. với addin Excel này, bạn có thể chèn số lượng Ảnh không giới hạn vào ô Excel hoặc dưới dạng nhận xét. nó cũng thay đổi kích thước Hình ảnh của bạn. và bạn có thể sắp xếp và lọc trang tính Excel của mình, bao gồm cả Hình ảnh!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi là người dùng Mac và một khi tôi đã sao chép mã vào mô-đun mới và chạy nó thì không có gì xảy ra. Có điều gì tôi phải làm trong mac để chạy mã VBA không? Thanks
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
[quote] hoặc bạn sử dụng trực tiếp image-xls. với addin Excel này, bạn có thể chèn số lượng Ảnh không giới hạn vào ô Excel hoặc dưới dạng nhận xét. nó cũng thay đổi kích thước Hình ảnh của bạn. và bạn có thể sắp xếp và lọc trang tính Excel của mình, bao gồm cả Hình ảnh!Bởi Armin[/ quote] [quote] Hướng dẫn với tiêu đề: Chèn nhiều ảnh vào Excel bằng mã VBA đơn giản nhanh chóng và hiệu quả tuyệt vời !!! đây là một giải pháp thay thế tốt để mua và cài đặt các plugin. Đây là bình luận đầu tiên của tôi trên mạng !! kudo!Bởi Rahul Gupta[/ quote] tôi đã thử cách này và có vẻ hoạt động tốt - nhưng bạn không thể sắp xếp hoặc lọc danh sách Excel bao gồm các bức ảnh. các bức ảnh cũng không được chia tỷ lệ theo tỷ lệ. vì vậy tôi đã mua image-xls - tốn một chút, nhưng tôi có tất cả những gì tôi cần
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào! Bất kỳ lý do nào khiến "Sub InsertPictures ()" không hoạt động trong Excel 2003? Tôi đã thêm tài liệu tham khảo vào Microsoft.Scripting.Runtime Cảm ơn trước Gilberto
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
nó rất giúp đỡ tôi. Nó rất tốt làm việc ....... Cảm ơn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi đã thử mã trên bảng tính của mình và nó hoạt động hoàn hảo. Cho đến khi tôi cố gắng làm bộ lọc. Nhận thấy rằng hình ảnh cuối cùng sẽ luôn được hiển thị trên kết quả bộ lọc. bất cứ ai có thể giúp đỡ?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sử dụng chương trình VBA bên dưới không thể chèn ảnh vào ô đã hợp nhất, Sub InsertPictures () 'Update 20140513 Dim PicList () As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application. Lấy OpenFilename (Pi cFormat , MultiSelect: = True) xColIndex = Application.ActiveCell.Column If IsArray (PicList) Then xRowIndex = Application.Act iveCell.Row For lLoop = LBound (PicList) To UBound (PicList) Set Rng = Cells (xRowIndex, xColIndex) Set sShapeex = ActiveSheet.Sha pes.AddPicture (PicList (lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub Vui lòng khuyên tôi sửa đổi VBA .
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Này tất cả, Điều này là tuyệt vời! Tôi đã theo dõi hướng dẫn của bạn trong một thời gian. Điều tôi hy vọng bạn có thể giúp tôi là, làm cách nào để thay đổi điều này từ việc dán các hình ảnh xuống một cột thành trên một hàng? Và làm cách nào để tôi có thể thêm "Tên tệp đầy đủ (ví dụ: example_image.jpg)" vào Hàng phía trên nó. Hàng 'A': "Filename.jpg" Hàng 'B': "Hình ảnh thu nhỏ" Cảm ơn !!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Này, Ive đã chèn ảnh bằng mã VBE của riêng tôi. Và bây giờ tôi đã cố gắng chia sẻ nó với những người khác, rất tiếc là họ không thể nhìn thấy hình ảnh ..... Tôi sẽ rất biết ơn nếu ai đó có thể cho tôi biết tôi còn thiếu điều gì. Thanks
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã ALMOST này phù hợp với nhu cầu của tôi. Tôi có 200 hình ảnh, mỗi hình ảnh cần phải đi trên trang tính riêng của nó. Làm thế nào để tôi đi về điều đó?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm cách nào để tôi có thể sửa đổi mã sau đây để ảnh được điền vào một dải ô đã chọn trên nhiều cột và hàng hơn là trong các ô liên tiếp trong các hàng liên tiếp trong cùng một cột? Sub InsertPictures () 'Update 20140513 Dim PicList () As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.Get OpenFilename (Pi cFormat, MultiSelect: = True) xColIndex = Application.ActiveCell. Cột If IsArray (PicList) Thì xRowIndex = Application.Act iveCell.Row Đối với lLoop = LBound (PicList) Đến UBound (PicList) Đặt Rng = Ô (xRowIndex, xColIndex) Đặt sShape = ActiveSheet.Sha pes.AddPicture (PicList) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Alguem conseguiu o codigo para a pergunta delete? estou Preisando também!
Không có bình luận nào được đăng ở đây
Tải thêm
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL