文档中页眉插入图片，横版竖版自动判断，分别插入的思路

snow653124

文档需要插入页眉，页眉为图片
在切换横板竖板的时候，如果采用同一个尺寸的页眉图片，会变形不合适。
如何自动根据版面（横版竖版），来判断插入对应不同的页眉图片？
没个思路
有成品或者可借鉴的VBA最好了

413191246se

1. Sub VerticalHorizontal()
   
2. '纵横转换
   
3.     With Selection
   
4.         If .Type <> wdSelectionIP Then
   
5.             ActiveDocument.Range(Start:=.Start, End:=.Start).InsertBreak Type:=wdSectionBreakNextPage
   
6.             .Start = .Start + 1
   
7.             If .End <> ActiveDocument.Content.End Then
   
8.                 ActiveDocument.Range(Start:=.End, End:=.End).InsertBreak Type:=wdSectionBreakNextPage
   
9.             End If
   
10.         End If
    
11.         With .PageSetup
    
12.             If .Orientation = wdOrientPortrait Then .Orientation = wdOrientLandscape Else .Orientation = wdOrientPortrait
    
13.         End With
    
14.     End With
    
15. End Sub

复制代码

snow653124

413191246se 发表于 2021-12-20 09:09

谢谢，这有段时间没来了