日本免费全黄少妇一区二区三区-高清无码一区二区三区四区-欧美中文字幕日韩在线观看-国产福利诱惑在线网站-国产中文字幕一区在线-亚洲欧美精品日韩一区-久久国产精品国产精品国产-国产精久久久久久一区二区三区-欧美亚洲国产精品久久久久

  1. 首頁(yè) > 云知道 > >

頁(yè)眉與上一頁(yè)不同怎么設(shè)置 頁(yè)眉

云知道頁(yè)眉

【頁(yè)眉與上一頁(yè)不同怎么設(shè)置 頁(yè)眉】

頁(yè)眉與上一頁(yè)不同怎么設(shè)置 頁(yè)眉


在excel表格中，設(shè)置頁(yè)眉和頁(yè)腳圖片是一個(gè)很有用的操作，它可以提高文件標(biāo)志性格式的統(tǒng)一性 。
如果增加一些公司LOGO，那就更需要添加一個(gè)圖片了 。
本文將利用VBA代碼來(lái)介紹一下，如何通過(guò)編碼實(shí)現(xiàn)添加頁(yè)眉頁(yè)腳圖片的效果 。
如下圖所示，添加了一個(gè)左上角圖片，那是個(gè)頁(yè)眉圖片，并不是插入的圖片，可以看到第二頁(yè)同樣會(huì)自動(dòng)添加一個(gè)頁(yè)角，實(shí)際上是所有頁(yè)都會(huì)自動(dòng)添加 。
那就介紹一下，如何實(shí)現(xiàn)這樣的效果 。
首先我們會(huì)用到一個(gè)對(duì)象，即Graphic對(duì)象 。
Graphic對(duì)象并不是憑空出現(xiàn)的，它需要另一個(gè)對(duì)象的某個(gè)屬性來(lái)返回得到 。
如下表所示：
PageSetup對(duì)象的幾個(gè)屬性都將返回一個(gè)Graphic對(duì)象 。
分別指的是頁(yè)眉的左中右和頁(yè)腳的左中右的圖片對(duì)象 。
這樣理解就簡(jiǎn)單多了 。
而PageSetup對(duì)象在以前文章里有介紹，具體內(nèi)容可查看一下 。
PageSetup對(duì)象是WorkSheet對(duì)象的一個(gè)屬性返回的 。
文字表達(dá)有點(diǎn)繞，下面具體看一行代碼：
set xGobj=ActiveSheet.PageSetup.LeftHeaderPicture
這樣就得到一個(gè)Graphic對(duì)象xGobj，它代表左上角頁(yè)眉的圖片 。
下面利用Graphic對(duì)象的一些屬性來(lái)設(shè)置一下相關(guān)內(nèi)容，如下圖所示：
通過(guò)上圖屬性設(shè)置之后，就可以實(shí)現(xiàn)對(duì)左上角頁(yè)眉的圖片格式化 。
具體代碼可以在文章后面查看 。
這里還需要一行代碼，以確定頁(yè)眉顯示圖片 。
ActiveSheet.PageSetup.LeftHeader = "&G"
下圖為圖片轉(zhuǎn)換效果的枚舉類型，也是ColorType屬性的可選值，實(shí)際上就是頁(yè)眉圖片以什么樣的方式進(jìn)行顯示，默認(rèn)為原圖顯示，也有黑白顯示，灰度顯示等等，實(shí)際操作中可以設(shè)置不同的值逐一調(diào)試 。
為什么要說(shuō)這個(gè)呢?主要是因?yàn)橥瑯邮且粡垐D片，用不同的顏色轉(zhuǎn)換可以呈現(xiàn)出不同的效果，就像同樣是一個(gè)紅色，每個(gè)人的眼里其實(shí)并不是一樣的紅色，有些人看到的是深紅，有些人看到是淺紅，還有些人看到的確是黃色，這并不奇怪 。
這就是說(shuō)，這個(gè)世界并沒(méi)有顏色，只不是你的大腦告訴你世界是五顏六色的 。
代碼：
代碼是重點(diǎn)要學(xué)習(xí)的內(nèi)容，如果深入理解，這一點(diǎn)并不困難，而且對(duì)于利用這樣的方法實(shí)現(xiàn)一個(gè)自動(dòng)化的過(guò)程，也是一件十分有意義的事情 。
Private Sub NewLeftPictrue()
Dim xGrObj As Object
Set xGrObj = ActiveSheet.PageSetup.LeftHeaderPicture'返回Graphic對(duì)象
With xGrObj
.Filename = ThisWorkbook.Path & "\\pic\\001.jpg"'默認(rèn)圖片
.Width = 30
.Height = 80
.LockAspectRatio = True'設(shè)置比例不變
.Brightness = Me.TextBox1.Value'設(shè)置亮度
.Contrast = Me.TextBox2.Value'設(shè)置對(duì)比度
.CropLeft = 100'裁剪左邊距離
.CropRight = 100'裁剪右邊距離
.CropTop = 50'裁剪上邊距離
.CropBottom = 50'裁剪下邊距離
.ColorType = msoPictureAutomatic'設(shè)備顏色轉(zhuǎn)換類型
End With
With ActiveSheet.PageSetup
.LeftHeader = "&G"'設(shè)置頁(yè)眉圖片
.TopMargin = xGrObj.Height + 30'設(shè)置頁(yè)眉高度
End With
End Sub
本文內(nèi)容實(shí)際有很大的拓展可能，分別對(duì)不同的頁(yè)角進(jìn)行設(shè)置，可以很好的體現(xiàn)個(gè)性化的文本打印效果，有需要趕快收藏學(xué)習(xí)吧！
歡迎關(guān)注、收藏
—END—
(今完)

    推薦閱讀