VBA - Change Pictures Brightness, contrast and sharpness

[hibernian3]

Hi All,

I am adding pictures into excel VBA but can't seem to figure out how to adjust the brightness, contrast and sharpness. Below code works fine except for the brightness adjustment...

Sub Photoload()

Dim FldrPicker As FileDialog
Dim myFolder As String
Dim pic As Picture




Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker)

  With FldrPicker
    .Title = "Select A Target Folder"
    .AllowMultiSelect = False
    If .Show <> -1 Then Exit Sub 'Check if user clicked cancel button
    myFolder = .SelectedItems(1) & "\"
  End With

Set pic = ActiveSheet.Pictures.Insert(myFolder & "/hole1.png")

With pic
.Height = 440
.Top = Range("H18").Top + (Range("H18").Height - .Height) / 2
.Left = Range("H18").Left + (Range("H18").Width - .Width) / 2
.PictureFormat.IncrementBrightness 0.3

End With

pic.ShapeRange.SoftEdge.Radius = 8

End Sub

 

[MARK858]

What is the initial brightness set as? You can't implement it past 1.0

 

[hibernian3]

Hi All,

I am adding pictures into excel VBA but can't seem to figure out how to adjust the brightness, contrast and sharpness. Below code works fine except for the brightness adjustment...

Sub Photoload()

Dim FldrPicker As FileDialog
Dim myFolder As String
Dim pic As Picture




Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker)

  With FldrPicker
    .Title = "Select A Target Folder"
    .AllowMultiSelect = False
    If .Show <> -1 Then Exit Sub 'Check if user clicked cancel button
    myFolder = .SelectedItems(1) & "\"
  End With

Set pic = ActiveSheet.Pictures.Insert(myFolder & "/hole1.png")

With pic
.Height = 440
.Top = Range("H18").Top + (Range("H18").Height - .Height) / 2
.Left = Range("H18").Left + (Range("H18").Width - .Width) / 2
.PictureFormat.IncrementBrightness 0.3

End With

pic.ShapeRange.SoftEdge.Radius = 8

End Sub

When they are inserted they just show as 0%, I'm then trying to change it to 10%

 

[MARK858]

When they are inserted they just show as 0%, I'm then trying to change it to 10%

If you are on about the slider showing 0% then that is the adjustment value not the actual total brightness

If it is the only picture/shape on the sheet trying running the code below and then post what it says in the immediate window

Debug.Print ActiveSheet.Shapes(1).PictureFormat.Brightness

 

[hibernian3]

If you are on about the slider showing 0% then that is the adjustment value not the actual total brightness

If it is the only picture/shape on the sheet trying running the code below and then post what it says in the immediate window

Debug.Print ActiveSheet.Shapes(1).PictureFormat.Brightness

it is the only picture on the sheet, but i get an error saying "This member can only be accessed for a picture or OLE object"?

Its picture saved as PNG file which is currently inserted

 

[hibernian3]

Thats it sorted, managed to fix by using below codes

pic.ShapeRange.SoftEdge.Radius = 8
pic.ShapeRange.PictureFormat.Brightness = 0.53
pic.ShapeRange.PictureFormat.Contrast = 0.63
pic.ShapeRange.PictureFormat.sharpness = 0.63