如何使用VBA将纹理应用于Excel中的范围？

我在工作簿中有一张纸，我试图让它看起来更好。 我试过谷歌search，但没有运气…

我知道如何将图片应用于整张图片（但会变得非常麻烦）：

Sheets("Phase Psy").SetBackgroundPicture Filename:=ThisWorkbook.Path & "\images\magie\slayers\lina_inverse_vs__voldemort.jpg"

也可以用于评论，你可以使用图片或一些不错的预设纹理：

Range("A1").Comment.Shape.Fill.Userpicture "c:\myPic.JPG"

要么

Range("A1").Comment.Shape.Fill.PresetTextured msoTexturePapyrus

我想要类似的东西，但不适用于评论，但范围。

有没有办法添加图片或纹理，或图案（但不是丑陋的，你可以find格式单元格>填充>图案样式）？

感谢您的任何build议。

Answer 1

 Sub Test2() ActiveSheet.Pictures("Picture 1").Width = ActiveSheet.Range("A1").MergeArea.Width ActiveSheet.Pictures("Picture 1").Height = ActiveSheet.Range("A1").MergeArea.Height End Sub 

上面的图片将填充图片，保持长宽比，直到获得单元格的全宽或高度