VBA 如何访问插入在文档中的控件对象

参考：

Dim Lab As InlineShape

Set Lab = Selection.InlineShapes.AddOLEControl(ClassType:="Forms.Label.1")

Lab. 输入这个点之后其所有属性都会自动列出。

1.数据做好，在旁边增加一列辅助列，并输入如图公式。

2.公式下拉，报表数据有多少行，就拉到多少行。

3.工具栏－开发工具－插入－组合框。

4.在工作表中画出控件，右击控件，设置控件格式。

5.如图设置，先把报表的各类名称依次排列下来。

6.选中辅助列数据－插入图表－三维柱形图。

7.右击选中控件－单击按住控件移到图表内，再进行图表美化，就成了。

使用VBA (Visual Basic for Applications) 与Internet Explorer (IE) 对象结合的方法，可以从网页中获取下一页按钮。以下是如何用VBA从给定的HTML代码片段中获取下一页按钮：

首先，确保已经安装了Microsoft Internet Controls引用。在VBA编辑器中，单击“工具”>“引用”并选中“Microsoft Internet Controls”。

然后，在代码模块中插入以下代码：

Option Explicit

Sub GetNextPageButton()

Dim IE As InternetExplorer

Dim HTMLdoc As HTMLDocument

Dim nextPageButton As HTMLAnchorElement

' 创建Internet Explorer实例

Set IE = New InternetExplorer

' 进入您要爬取的网页URL

IE.Navigate "http://your-website-url.com"

' 等待网页加载完成

Do While IE.Busy Or IE.ReadyState <>READYSTATE_COMPLETE

DoEvents

Loop

' 获取网页的HTML内容

Set HTMLdoc = IE.Document

' 查找下一页按钮

Set nextPageButton = HTMLdoc.querySelector("a.changePage[page='2']")

' 输出下一页按钮的文本

If Not nextPageButton Is Nothing Then

MsgBox "下一页按钮: " &nextPageButton.innerText

Else

MsgBox "下一页按钮未找到"

End If

' 关闭Internet Explorer实例

IE.Quit

Set IE = Nothing

End Sub

修改代码中的网页URL，将其替换为您要爬取的实际网址。

运行代码，它将获取下一页按钮并显示一个消息框，包含按钮的文本。

注意：由于VBA中的Internet Explorer已经过时，且在某些情况下可能无法正常工作，因此您可能会考虑使用更现代的Web爬虫技术，例如Python的BeautifulSoup或Selenium库。

---