change picture brightness from copy/pasted image

[flashbbeb]

Hi all,

The premise here is that the user clicks a button in the ribbon, and the image is copied from the hidden location and pasted where desired in a table. But I want to make sure the image cannot be seen from where it is being copied.

What I came up with was - hiding the images by changing the brightness and contrast to 100% (is there a better way?) and bookmarking them so the macro knows the location when it copies and pastes it later.

The problem is that when it's pasted, the code I have to reset the brightness and contrast just gives me a gray box. I'm by no means a programmer, but I do have an idea of what to do to tweak code after recording a macro.

Public Sub promptVideo(control As IRibbonControl) 
    Selection.GoTo What:=wdGoToBookmark, Name:="video"
    Selection.Copy
    Application.GoBack
    Selection.SelectRow
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.SelectCell
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.PasteAndFormat (wdPasteDefault)
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.InlineShapes(1).PictureFormat.Brightness = 0.2
    Selection.InlineShapes(1).PictureFormat.Contrast = 0.5

End Sub

Any thoughts on how to make the pasted image display properly?

Thanks, EB

 

[SkipVought]

hi,

Why not just hide the sheet where you store the images?

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[flashbbeb]

Oops - sorry - forgot to mention I'm doing this in Word.

 

[SkipVought]

You don't need to change the contrast, just the brightness from 1 to .5

ShapeObject.PictureFormat.Brightness = 0.5

Do you have shapes or inline shapes?

Here is you problem, I believe. Collections are not indexed by their position. Rather, by the order of insertion. So the inline shape you just added to the collection py pasting into the document is the LAST ONE in the collection, So...

With ThisDocument
   with .InlineShapes(.InlineShapes.Count).PictureFormat
      .Brightness = 0.5
      .Contrast = .5
   end with
end with

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[SkipVought]

oops, it seems that the InLine shapes collection are indexed by order of appearance in the document.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[SkipVought]

    With Selection.InlineShapes(1).PictureFormat
         .Brightness = 0.5
         .Contrast = 0.5
    End With

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]