Điều chỉnh độ sáng hình ảnh trong Excel imageControl

Điều chỉnh độ sáng hình ảnh trong Excel imageControl

Chào các đối tác,

Điều chỉnh độ sáng hình ảnh trên trang tính trong Excel imageControl

Tôi cần lấy giá trị độ sáng của hình ảnh trong PictureBox, nhưng tôi không hiểu cách tạo hằng số độ sáng.

Tôi không muốn thay đổi độ sáng, tôi muốn kiểm tra độ sáng, lấy giá trị độ sáng và sử dụng nó để so sánh trong đoạn mã bên dưới.

 Nếu Color.GetBrightness() < 0.5 thì

Một bức tranh đơn giản trong bảng tính có độ sáng nhưng không có tay cầm.
Trong ImageControl, ảnh có một handle nhưng không thể lấy độ sáng một cách đơn giản, tôi không biết cách làm điều đó.

công việc này

 =========================  Đặt myDocument = Worksheets(1)   myDocument.Shapes(1).PictureFormat.Brightness = 0.3  =========================

Điều này không hiệu quả

Image1.picture.Brightness

Ở đây là các hằng số, tôi cần tạo độ sáng.

 Private Const WHITENESS As Int32 = &HFF0062   Private Const BLACKNESS As Int32 = &H42

Cảm ơn bạn rất nhiều.




Trả lời:

Độ sáng nằm trong khoảng từ 0 đến 1. Xem liên kết sau.

https://msdn.microsoft.com/en-us/library/office/ff840787.aspx?f=255&MSPPError=-2147217396

Các hằng số là số thực (double numbers); không phải số nguyên vì chúng là số thập phân.

Private Const WHITENESS As Double = 0.5
Private Const BLACKNESS As Double = 1

Để trả về giá trị thuộc tính Độ sáng

Dim myDocument As Worksheet
Dim dblBright As Double

Đặt myDocument = Worksheets(1)

dblBright = myDocument.Shapes(1).PictureFormat.Brightness 'Gán độ sáng cho biến



Trả lời:

Chào OssieMac , cảm ơn bạn!

Mã của bạn rất tuyệt, nhưng tôi cần mã để hiển thị hình ảnh trong ImageControl trên bảng tính:

Hình ảnh 1. Hình ảnh

Tôi không chắc mã của bạn có hoạt động hay không.

Tôi sẽ thử nghiệm.



Trả lời:
Tôi không chắc bạn muốn nói gì. Có phải bạn muốn tăng hoặc giảm độ sáng của hình ảnh trên bảng tính? Nếu vậy, điều này có thể được thực hiện bằng một nút xoay trên bảng tính.

Trả lời:

Chào OssieMac ,

Vấn đề của tôi là tôi cần lấy độ sáng của một bức ảnh để đưa vào Picturebox trong bảng tính.

Đặt một Picturebox (ImageControl) vào Worksheet và đặt một hình ảnh vào Picturebox đó.

Không chỉ đơn thuần là chuyển một bức tranh thành bài tập.

Vấn đề là tôi cần thực hiện công việc này với ImageControl chứ không chỉ dùng mỗi hình ảnh.

Chỉ có hình ảnh là mã số:

 myDocument.Shapes(1).PictureFormat.Brightness = 0.3

Nhưng với PictureBox thì tôi không biết:

Hình ảnh 1. Hình ảnh



Trả lời:
Giờ thì tôi nghĩ mình đã hiểu câu hỏi rồi. Theo như tôi biết thì ảnh không có thuộc tính Độ sáng.

Trả lời:

Đúng,

Tôi nghĩ đây là giải pháp:


https://www.experts-exchange.com/questions/10027489/Calculating-'brightness'-of-a-bitmap.html
=================================================

Bình luận của tác giả: clay111296
ID: 14396241997-11-05
Cảm ơn bạn đã cung cấp thông tin chi tiết. Tôi có một câu hỏi:
Với nRed = nRed + Int(nRGB / &H10000 And &HFF)
Ký hiệu ^^^ được định nghĩa ở đâu? Hay đây là phép tính tích lũy mà bạn đang thực hiện (cộng tổng màu đỏ trong tất cả các pixel)? Nghĩa là bạn đang theo dõi tổng số tích lũy ở đây?


Nhân tiện, mã nguồn duy nhất tôi có được là cái bạn đã đăng lên diễn đàn này, trừ khi bạn đã gửi email cho tôi ở chỗ làm (*** Địa chỉ email đã bị xóa vì lý do bảo mật ***). Tôi sẽ kiểm tra ở đó vào ngày mai.


=======================================
Bình luận của chuyên gia: rantanen
ID: 14396251997-11-05
Đất sét,

Ồ, đúng rồi, đó là một đoạn mã từ hàm con bên dưới và như bạn đã nói, đó là phép đếm tích lũy.

Private Function GetBrightness(picX As PictureBox, nSamples As Integer, nX As Integer, nY As Integer) As Single
Khai báo I là số nguyên
Giảm độ sáng nRGB càng lâu càng tốt.
Dim nRed As Integer
Dim nGreen As Integer
Khai báo nBlue dưới dạng số nguyên
Khai báo nGray là số nguyên
Dim nRedSum As Long
Dim nGreenSum As Long
Dim nBlueSum As Long
Dim nSum As Long

Đối với I = 1 đến nSamples
nRGB = GetPixel(picX.hdc, Int(Rnd() * nX), Int(Rnd() * nY))
nRedSum = nRedSum + Int(nRGB / &H10000 And &HFF)
nGreenSum = nGreenSum + Int(nRGB / &H100 And &HFF)
nBlueSum = nBlueSum + Int(nRGB And &HFF)
Tiếp theo tôi
nSum = (0,3 * nRedSum + 0,59 * nGreenSum + 0,11 * nBlueSum) / nSamples
GetBrightness = 100 * nSum / 255
Kết thúc hàm

Tôi đã gửi mẫu của mình đến '*** Địa chỉ email đã bị xóa vì lý do bảo mật ***', địa chỉ mà bạn đã cung cấp trong một ghi chú trước đó.

Địa chỉ email của tôi là '*** Địa chỉ email đã bị xóa vì lý do bảo mật ***'



Trả lời:

Tôi nghĩ đây là giải pháp:

Nếu bạn làm cho nó hoạt động được thì tôi sẽ rất quan tâm đến giải pháp cuối cùng. Có vẻ như thiếu sót điều gì đó vì tôi nhận được lỗi biên dịch "Kiểu do người dùng định nghĩa chưa được định nghĩa" ở dòng Hàm.

Tôi đã chèn API từ bài đăng trước đó vào URL mà bạn cung cấp nhưng vẫn không được.



Trả lời:

Chào OssieMac ,

Tôi chưa thử cách này, nhưng bạn có thể tải lên tệp mẫu của bạn được không?

Comments

Post a Comment

Popular posts from this blog

Điều tôi muốn làm trong Excel 2010 là tạo một nút tùy chỉnh và gắn nó vào thanh công cụ Truy nhập nhanh và chạy một macro cụ thể.

Image
Điều tôi muốn làm trong Excel 2010 là tạo một nút tùy chỉnh và gắn nó vào thanh công cụ Truy nhập nhanh và chạy một macro cụ thể. Trong excel 2003, trong mục tùy chỉnh thanh công cụ, người ta có thể lấy một nút và chỉnh sửa hình ảnh của nút đó. Điều tôi muốn làm trong excel 2010 là tạo một nút tùy chỉnh và gắn nó vào thanh công cụ Truy cập nhanh và để nút đó chạy một macro cụ thể. Ví dụ, tạo nút có chữ G lớn và khi nhấp vào, nút sẽ thực hiện truy vấn web và nhập giá vàng từ kitco.com. Có cách nào để thực hiện việc này trong Excel 2010 không? Trả lời: Xin chào, Để bật tab Nhà phát triển 1. Trên tab Tệp , chọn Tùy chọn để mở hộp thoại Tùy chọn . 2. Nhấp vào Tùy chỉnh Ribbon ở phía bên trái của hộp thoại. 3. Trong mục Chọn lệnh từ ở phía bên trái hộp thoại, chọn Lệnh phổ biến . 4. Trong mục Tùy chỉnh Dải băng ở phía bên phải hộp thoại, chọn Tab chính trong hộp danh sách thả xuống, sau đó chọn hộp kiểm Nhà phát triển . 5. Nhấp vào OK . Để biết thêm thông tin về cách tạo ...
Read more

Excel 2016 - mở tất cả các tệp trong MỘT phiên bản

Image
Excel 2016 - mở tất cả các tệp trong MỘT phiên bản Xin chào, Tôi gặp sự cố với Excel 2016 (16.0.10228.20051 32-bit): Tôi có một phiên bản Excel đang chạy. (NB - hộp kiểm " Bỏ qua các ứng dụng khác sử dụng Trao đổi dữ liệu động (DDE) " trong Tùy chọn nâng cao KHÔNG được chọn.) Điều tôi cần là - đối với tất cả các tệp Excel mà tôi sắp mở để mở trong phiên bản Excel đầu tiên và duy nhất của mình e, luôn luôn và bất kể: - tôi mở bao nhiêu tập tin cùng một lúc, - nơi chứa các tập tin (tức là trên ổ đĩa cục bộ hoặc trên OneDrive nên hệ thống cần tải chúng xuống trước khi mở) và kể cả khi mở tệp Excel từ các ứng dụng Office khác, tức là tệp đính kèm Outlook. Hành vi mà tôi thấy trong Excel 2016 tốt nhất là không nhất quán: 1. Khi mở nhiều tệp bổ sung cùng một lúc từ đĩa (chọn nhiều tệp/nhấp chuột phải/Mở) - nó sẽ mở n tệp đầu tiên trong phiên bản Excel đầu tiên, nhưng sau đó từ tệp n +1, nó bắt đầu mở chúng trong phiên bản mới . 2. Một biến thể của trường hợp trên là k...
Read more

Mở tài liệu Excel và Word từ Outlook Lỗi - Không đủ bộ nhớ

Image
Mở tài liệu Excel và Word từ Outlook Lỗi - Không đủ bộ nhớ Chào mọi người, Tôi biết có nhiều bài viết liên quan đến vấn đề này nhưng câu trả lời không thỏa đáng với môi trường của tôi. Chúng tôi xử lý số lượng tài liệu mỗi ngày và lưu vào máy tính để bàn -> việc bỏ chặn không cắt được tài liệu đó cũng như vô hiệu hóa chế độ xem được bảo vệ bằng phần mềm ransomware gần đây mà NHS nhận được (bảo mật cần được giữ nguyên). Thông báo có nội dung: 'Không thể mở hoặc lưu thêm bất kỳ tài liệu nào vì không có đủ bộ nhớ hoặc dung lượng ổ đĩa' -> mặc dù việc thực hiện 2 giải pháp trên sẽ khắc phục được điều này (đó không phải là bộ nhớ, chỉ là một tin nhắn ngu ngốc nếu tôi thành thật) . Tuy nhiên, tôi chỉ cần có thể mở tệp ở chế độ xem được bảo vệ, không gặp lỗi. Có ai có thể sửa lỗi này 'đúng cách' chưa? Nếu vậy xin vui lòng cho tôi biết để tôi có thể triển khai rộng rãi hoạt động kinh doanh này. Tôi đã tìm thấy cài đặt gpe trong cấu hình người dùng -> thành phần windo...
Read more