Can you make a Macro to Format Pictures to change brightness and contrast?

[johnclda]

I am making a board game. I have hundreds of pictures in excel. I need to format the pictures for brightness and contrast. I would like a way to do that in a vba macro. How can it be done? I tried using the macro record tool but nothing gets recorded except for the selection of the pictures. Please help. See below


'
' formatpicture Macro
'
' Keyboard Shortcut: Ctrl+j
'
ActiveSheet.Shapes.Range(Array("Group 307")).Select
ActiveSheet.Shapes.Range(Array("Picture 308")).Select
ActiveSheet.Shapes.Range(Array("Group 304")).Select
ActiveSheet.Shapes.Range(Array("Picture 305")).Select
ActiveSheet.Shapes.Range(Array("Picture 194")).Select
ActiveSheet.Shapes.Range(Array("Picture 194")).Select
ActiveSheet.Shapes.Range(Array("Picture 194")).Select
ActiveSheet.Shapes.Range(Array("Picture 194")).Select
ActiveSheet.Shapes.Range(Array("Picture 194")).Select
ActiveSheet.Shapes.Range(Array("Picture 194")).Select
ActiveSheet.Shapes.Range(Array("Picture 194")).Select
ActiveSheet.Shapes.Range(Array("Picture 194")).Select
ActiveSheet.Shapes.Range(Array("Picture 340")).Select
ActiveSheet.Shapes.Range(Array("Picture 194")).Select
ActiveSheet.Shapes.Range(Array("Picture 355")).Select
ActiveSheet.Shapes.Range(Array("TextBox 306")).Select
ActiveSheet.Shapes.Range(Array("TextBox 293")).Select
ActiveSheet.Shapes.Range(Array("Picture 292")).Select
ActiveSheet.Shapes.Range(Array("Picture 194")).Select
ActiveSheet.Shapes.Range(Array("Picture 194")).Select
ActiveWorkbook.Save
End Sub

[AlphaFrog]

This will loop through all the pictures on a sheet and set their brightness and contrasts percentages.

Please Login or Register  to view this content.

[johnclda]

Thanks, works great!