制做Excel数据图表是一个美工设计活，如果有非常好的审美观，那麼很有可能无拘无束地制造出好看的图表，以很雅致地表示数据信息的含义。

这是一个细致的工作中，通常会被忽视掉。

文中将详细介绍一个单一的作用，如何设置一个定制的图片为数据图表环境。

如上图所述所显示，设定了一个简便的环境图片，其并没有实际意义。

一样，我们可以设定如下图一个小黄人为环境图片，结论也没一切实际意义，假如设定为本公司的一些有关图片就看起来有因此点含意了。

下面，便是怎样完成那样的实际效果全过程。

最先，搞清楚一点，完成那样的环节是根据一个"方式"来保持的。这一方式名字为UserPicture

简单翻译便是"客户图片"。

此方式英语的语法和主要参数如下图所示：

要想应用UserPicture方式还需要使用一个对象，一个叫ChartFormat的对象。

ChartFormat对象即属性如下图所示：

要想得到ChartFormat对象，要采用一个Fill属性。根据Fill属性就可以回到一个ChartFormat对象。那样就可以运用ChartFormat对象的UserPicture属性设定环境图片了。

Fill属性如下图所示：

实际上，那样表述有点儿不能接纳，许多对象属性往返绕，觉得如同走迷宫游戏。为什么不立即一点呢，很有可能中西方文化的差别决策的，因此，程序编写是逻辑性观念的一种标识符数据信息表述，因为底层逻辑被设置之后，大家也迫不得已去依照那样的观念去考量问题。

编码

Private Sub SetUserPicture()Dim cObj As Object, xPic As StringWith Application.FileDialog(msoFileDialogFilePicker) If .Show = -1 Then .Filters.Clear .Filters.Add "图片文档(*.jpg;*.gif;*.jpeg)", "*.jpg;*.gif;*.jpeg" .AllowMultiSelect = False .Title = "挑选环境图片" xPic = .SelectedItems(1) End IfEnd WithIf VBA.Len(xPic) = 0 Then Exit SubSet cObj = ActiveSheet.ChartObjects(1).Chart With cObj.ChartArea.Fill .UserPicture picturefile:=xPic .Visible = True End WithSet cObj = NothingEnd Sub

根据如上编码就可以完成拆换各项工作表格中第一个图示的环境图片，假如要改动大量图示环境，就需要对图示开展挑选确定。

热烈欢迎个人收藏、关心

---END---