Publisher) (FillFormat.TextureName 屬性
會傳回指出指定的填滿的自訂材質檔案名稱的 字串 。 唯讀。
語法
運算式。TextureName
表達 代表 FillFormat 物件的 變數。
傳回值
字串
註解
使用 UserTextured 方法可設定填滿圖樣的材質檔案。
範例
本範例在目前出版物中新增一個橢圓。 如果目前出版物的圖案 1 是以使用者自訂材質填滿,則新橢圓也將有相同的填滿。 如果圖案 1 為其他類型的填滿,則此新橢圓將採用綠色大理石材質填滿。
Dim ffNew As FillFormat
With ActiveDocument.Pages(1).Shapes
Set ffNew = .AddShape(Type:=msoShapeOval, _
Left:=0, Top:=0, Width:=200, Height:=90).Fill
With .Item(1).Fill
If .Type = msoFillTextured And _
.TextureType = msoTextureUserDefined Then
ffNew.UserTextured _
TextureFile:=.TextureName
Else
ffNew.PresetTextured _
PresetTexture:=msoTextureGreenMarble
End If
End With
End With
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。