Giúp viết dòng lệnh chỉnh contrats( ương phản) và brightness (độ sáng) cho hình ảnh. (1 người xem)

[thang_nguyen1]

Mình cần mọi người hỗ trợ giúp mình viết dòng lệnh thay đổi độ sáng và tương phản của hình ảnh.Do nhu cầu công việc nên việc chỉnh tay lâu nên mong mọi người giúp mình. Mình xin cảm ơn

 

[giaiphap]

Đây chỉ là gợi ý bạn sửa theo nhu cầu của mình nhé.

 

[thang_nguyen1]

Đây chỉ là gợi ý bạn sửa theo nhu cầu của mình nhé.

Cảm ơn bạn đã giúp mình.Cái này nó chỉ chỉnh được 1 hình . Ý mình muốn bấm vào hình nào là hình ý chỉnh được. Mong bạn hỗ trợ thêm

 

[thang_nguyen1]

Cảm ơn bạn đã giúp mình.Cái này nó chỉ chỉnh được 1 hình . Ý mình muốn bấm vào hình nào là hình ý chỉnh được. Mong bạn hỗ trợ thêm

Ý mình muốn như này mong mọi người hỗ trợ

 

[giaiphap]

Bạn điều chỉnh theo nhu cầu cá nhân, tui lười điều chỉnh và bẩy lỗi quá.

 

[thang_nguyen1]

Bạn điều chỉnh theo nhu cầu cá nhân, tui lười điều chỉnh và bẩy lỗi quá.

Mình về dùng lệnh ctrl+shift+e nó hiện lỗi như này. Bạn giúp mình trên form chỗ lưu chỉnh ở ảnh và reset ảnh về ban đầu. Mình xin cảm ơn

 

[thang_nguyen1]

Mình về dùng lệnh ctrl+shift+e nó hiện lỗi như này. Bạn giúp mình trên form chỗ lưu chỉnh ở ảnh và reset ảnh về ban đầu. Mình xin cảm ơnView attachment 287779

Lỗi mình sửa đc rồi. Khi chưa bấm vào hình thì hiển thị lỗi. Bạn sửa cho mình và thay bằng msgbox là chưa bấm hình ảnh

 

[giaiphap]

Sửa chổ này.

If (TypeName(Selection) = "Picture") Or (TypeName(Selection) = "DrawingObjects") Then UserForm1.Show False

 

[thang_nguyen1]

Sửa chổ này.

If (TypeName(Selection) = "Picture") Or (TypeName(Selection) = "DrawingObjects") Then UserForm1.Show False

Cảm ơn bạn nhiều lắm

 

[thang_nguyen1]

Sửa chổ này.

If (TypeName(Selection) = "Picture") Or (TypeName(Selection) = "DrawingObjects") Then UserForm1.Show False

Cảm ơn bạn nhiều nhé.