VBA Problem i Word 97

[pharzyde]

Har börjat titta på att göra ett Makro i Word 97 som skall gömma en logotyp från Sidhuvudet på dokument och ta fram det igen. Anledningen är att ibland vill man skicka dokumentet digitalt och då kommer ej brevpapprets logotyp med i dokumentet.

Lösningen jag tittat på är att man använder sig av Brightness på bilden för att göra den helt genomskinlig när man skriver ut lokalt.

 

Problemet är att följande kod fungerar alldeles utmärkt om bilden ligger i dokumentet men ej om det ligger i Sidhuvudet - kan dock ej hitta någonstans nån information om hur man kan komma åt bilder i sidhuvudet på samma sätt.

 

Någon som vet?

 

 

If ActiveDocument.InlineShapes(1).PictureFormat.Brightness = 0.5 Then

ActiveDocument.InlineShapes(1).PictureFormat.Brightness = 1

Else

ActiveDocument.InlineShapes(1).PictureFormat.Brightness = 0.5

End If

End Sub

 

 

// Tony Soukka

[MH]

Det verkar som om du får välja header först.

 

Typ:

*******************************

If ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.InlineShapes(1).PictureFormat.Brightness = 0.5 Then

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.InlineShapes(1).PictureFormat.Brightness = 1

Else

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.InlineShapes(1).PictureFormat.Brightness = 0.5

End If

 

*******************************

 

 

[pharzyde]

Tack!

Det fungerade perfekt!

 

/Tony