Photo Test

Hi Digirame,

I suppose It's like the Gallery on DPReview only that showed all the pictures in that set and this one shows you that one specific picture you clicked on, Still with the dark backgound it looks good.

Mocha,

I had a question now that we got you here. How did you change your red icon to Mocha 123?

Hi Digirame,

To change your avatar, left click on your Avatar seen below, mine is the red one.

You'll see menu below click on Change avatar.

Here I used Corel Draw to create it. the picture .png .Jpg must be not less than 400px by 400px.

Click on Upload new image.

Then Select File.

Job Done.

Let me know if you want a similar one to mine, give me the details and I'll try to creatr one for you.

In the expanation above The first and second icons are the same. The second icon should be.

On another note, I just found out DPRevived comes with some pre-provided images for your avatar:

Syntax error.

Don't bother too much Digirame.

The error is because the underscore line means that the code is below on another line. Try to see if it works by removing the underscore line. Things happen like that, when copying & pasting. It was my mistake as I assume people know about the underscore line...again my mistake. You are doing great. :-)

Try this instead for that line: Set myRange = ActiveDocument.Range (Start:=ActiveDocument.Content.End - 1, End:=ActiveDocument.Content.End - 1)

Computer programming can be tough because we have to be perfect...one different letter...one extra space...can make it fail. But I think it's good now.

I tested it out again. I tried to show this differently, but I could not. Again, just remove the underscore lines. Let me know if you are successful.

Here's new and improved code to create EXIF data lines for each image from IrfanView to MS Word as I described previously. We now will have a space between each EXIF data sets. I added "myRange.Paragraphs(1).LineUnitAfter = 1" between Next B and Next A as shown below. DPRevive may add underscore lines when I copy and paste this message in. If that happens, read about underscore lines as I explained above.

Sub EXIFDataMultipleRevision1()

Dim A As Integer: Dim B As Integer: Dim TheEnd As Integer: Dim EXIFLen As Integer: Dim vardata

'*****************
' This code is written for multiple EXIF data sets for each image. * ' TheEnd is any additional image EXIF data beyond the first one. * ' For example, when TheEnd is two, this is for three sets of image EXIF data. * ' EXIFLen is the fixed number of EXIF data lines plus one; that is 103 + 1 (allowing for one space) * ' The EXIF data must be inserted in the MS Word document with one separating space to match the code .*
'******************

TheEnd = 11
EXIFLen = 104

For A = 0 To TheEnd

For B = 0 To 6
vardata = Array(1 + EXIFLen * A, 3 + EXIFLen * A, 13 + EXIFLen * A, 14 + EXIFLen * A, 16 + EXIFLen * A, 27 + EXIFLen * A, 47 + EXIFLen * A)
ActiveDocument.Paragraphs(vardata(B)).Range.Copy
Set myRange = ActiveDocument.Range(Start:=ActiveDocument.Content.End - 1, End:=ActiveDocument.Content.End - 1)
myRange.Paste

Next B

myRange.Paragraphs(1).LineUnitAfter = 1

Next A

End Sub

You reminded me about that. So I tried to make something rough with Microsoft Paint. I couldn't see how to change the avatar when I clicked the mouse on it. I will keep trying. It's low priority. But some day I'll get it. :-)

A little edit:

Wait...wait...wait...I clicked the wrong side of the mouse. OK, I got it now. I can see the "Change avatar". OK, we are making progress. :-)

OK, I'm a flying white egret until I can think of something else. :-)

Great Stuff :-) I like your choice.

Hi Digirame, sorry it took me so long to reply. I'm just working through my subscribed threads.
I last went to Scotland in October 2022. I guess I must have never got around to sharing the photos.
They'll be around.🙂