Just nu i M3-nätverket
Jump to content

VBA Problem i Word 97


pharzyde

Recommended Posts

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

Link to comment
Share on other sites

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

 

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

 

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...