I thought that would be the case. I have increased the brightness by 25% above what looks good in a viewer but the image is still very dark in the image control. I may have to make two copies, one for access and one copying. Thank for your response.
After reviewing the thread, I see you did talk about brightness. The issue is that unlike Word or Powerpoint, Access does not have an image editing tool that it can call. I looked and there does not seem to be anything in the image control to help. I looked for a possible .DLL file that could diddle with photo properties, but so far, no luck in finding anything in my old version of Access. So unless someone can point to a photo manager tool that exposes its controls via COM techniques, I'm going to have to say NO on your question. But that DOES depend on the fact that I can't find a tool. If someone else finds one, well and good.
Thanks Doc_Man. When I posted this thread it was in the unlikely hope there was a solution. My own checking indicated no such luck but there is a wealth of information out there just waiting to be tapped. This time there was no flow.
One option could be to use the ImageMagick COM Object. It's free, easy to use, and this kind of work is exactly what it was made for.
Failing that, it would be less than ideal, but could you not conceivably use the WIA COM Object to manipulate the image?
I checked and of all the image processing options, brightness is not one of the them, but it does give you access to the ARGB values of the image, and if you take the view that adjusting brightness is pushing all RGB values of a pixel in an image proportionally towards white, then I suppose it could be done. By way of example, the following will change every 21st pixel in a given image to pink:
Dim Img 'As ImageFile, IP As ImageProcess
Dim v 'As Vector, i As Long
Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
Set v = Img.ARGBData
For i = 1 To v.Count Step 21
v(i) = &HFFFF00FF 'opaque pink (A=255,R=255,G=0,B=255)
Set IP.Filters(1).Properties("ARGBData") = v
Set Img = IP.Apply(Img)
I also wonder if the same could be accomplished with the GDI+ APIs, but it may just be along the same line of logic.
There is always Excel as well - it has an IncrementBrightness method to its Shapes/Picture objects. But then the trick is exporting it back into an image, which invariably involves either a capture of the picture via API or using the ChartObject to export it into an image - again, not a great solution.
Thank you D.Walla. I finished up increasing the brightness of the images by one stop in Lightroom and increasing the size of the displayed photo. These actions, together, improved the visibility of the photos.
I will keep your solution in mind for future projects.