Thanks, this code changes the formatting!
But not the correct way, I will skip changing the brightness and the contrast
Quote:
Originally Posted by gmayor
Maybe something like
Code:
Sub Macro1()
Dim oShape As Shape
Dim oIlshape As InlineShape
If Selection.InlineShapes.Count = 0 Then
***
Set oShape = Nothing
Set oIlshape = Nothing
End Sub
|