VBA中是否有选择形状事件？
在VBA中，没有直接的选择形状事件。然而，可以通过使用VBA代码来模拟选择形状事件的效果。
要模拟选择形状事件，可以使用以下步骤：
- 首先，需要在VBA中定义一个变量来存储当前选择的形状。可以使用Shape对象来表示形状。
Dim selectedShape As Shape- 接下来，可以使用Worksheet对象的SelectionChange事件来检测选择的形状是否发生变化。在该事件中，可以将当前选择的形状赋值给之前定义的变量。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set selectedShape = Nothing
If TypeName(Selection) = "Shape" Then
Set selectedShape = Selection.ShapeRange.Item(1)
End If
End Sub- 现在，可以在其他地方的代码中使用selectedShape变量来操作当前选择的形状。例如，可以更改形状的颜色或大小。
Sub ChangeShapeColor()
If Not selectedShape Is Nothing Then
selectedShape.Fill.ForeColor.RGB = RGB(255, 0, 0) ' 将形状的填充颜色更改为红色
End If
End Sub需要注意的是，上述代码是在Excel中使用VBA的示例。在其他应用程序中，可能会有不同的事件和对象来实现类似的功能。
关于VBA中选择形状事件的更多信息，可以参考以下链接：
相关·内容
1回答
我有excel项目，包括图片。我有一个有ImageBox的用户表单。此窗体使用选择更改事件根据行号动态显示图片。
单元格选择更改时触发此事件。但我想通过单击shape来触发此事件。有什么解决方案吗？这些是单元格选择更改事件的代码。
浏览 33提问于2021-06-09得票数 0
回答已采纳
1回答
是否可以使用vba在powerpoint中创建始终位于顶部的形状？我尝试查看shapes(x).zOrder的选项。我选择msoBringToFront，但当我创建另一个形状时，新形状是位于顶部的那个形状。
我检查了有powerpoint的事件，但在创建形状时没有事件...仅当创建幻灯片时。还有别的办法吗？
浏览 2提问于2014-04-05得票数 0
我想在幻灯片放映模式下处理powerpoint形状的单击事件。我想在C# vsto插件中编写事件处理程序。请帮助我，我被困在这个谷歌搜索，我无法找到任何答案，这一点。
浏览 4提问于2013-11-21得票数 1
回答已采纳
1回答
假设我已经使用鼠标在Excel选项卡中选择了两个或两个以上的形状。Selection.count只返回所选内容中的形状数。在形状选择过程中记录宏ActiveSheet.Shapes.Range(Array("Shape_A&
浏览 1提问于2018-04-17得票数 0
为了避免出现，下面是我要完成的任务:当选择一个形状时，我希望在屏幕上显示关于该形状的详细文本。
我第一次尝试使用形状数据，但它只支持单行name=value对。我的下一个想法是使用形状的ScreenTip (又名工具提示)来保存文本数据，然后编写一些VBA代码来处理_SelectionChanged事件。当选择一个形状时，我希望将它的ScreenTip文本复制到另一个对象的文本中(my面板)。我完成了_Selecti
浏览 2提问于2015-09-30得票数 1
回答已采纳
我有两个问题：
是否有办法通过VBA代码更改形状的ShapeSheet (电子表格)参数？更准确地说，我需要更改形状的ShapeSheet中的ShapeSheet参数值。是否有其他方式将鼠标双击事件处理程序注册到Visio形状？我希望每次双击形状时都会调用我提供的子例程，并将shape对象作为参数。到目前为止，我知道的是注册添加形状事件，如下
浏览 0提问于2019-03-14得票数 2
有人能确认在VBA中是否存在从Excel 2010的插入菜单中绘制的文本框发生更改的事件吗？这是一个“形状”文本框。
谢谢。
浏览 3提问于2017-02-24得票数 0
1回答
我正在通过VBA宏和UserForms使用Visio作为建模工具。模型的形状可以具有与“子”相同的形状，而“子”又可以有一个孩子。具有父对象的形状只能通过分离的UserForm添加，该从模型中的所有对象列表中获取形状数据和父对象。然后，它调用一个函数，该函数遍历页面上的所有<e
浏览 4提问于2018-09-07得票数 0
回答已采纳
我有以下代码： Dim NoIO As String Dim i As Integer'Target shape id selected' End IfEnd SubSet shp1 =
浏览 0提问于2018-06-30得票数 0
回答已采纳
PowerPoint有两种阴影-形状和文本。形状阴影可以通过右键单击形状(包括文本框)，选择格式文本，然后通过Shadow属性选择Shadow或使用VBA来设置： Shape.Shadow.Size = 100 Next如何使用VBA设
浏览 2提问于2010-03-22得票数 3
回答已采纳
嗯，我想知道我们是否可以创建自定义的文本框，这些文本框充当输入框，并链接到VBA。据我所知，标准过程需要添加一个ActiveX Textbox控件，然后使用TextBox1_Change事件添加代码，说明当用户输入某个内容时需要发生什么。那么，是否有任何方法来改变它的外观或有什么东西取代它，同时达到同样的目的呢？我能想到并尝试过的一件事是插入一个形状(蓝色)：
InputText = Shapes(&q
浏览 5提问于2014-10-13得票数 0
回答已采纳
我认为这将是一项简单的任务:通过VBA从选定的形状中删除线条/边框。(set shp = ActiveWindow.Selection.ShapeRange(1))
第一次尝试：shp.line.weight = 0 -->形状周围仍然有一条非常细的线。第二次尝试：shp.line.visible = false -->线条消失，但在图形用户界面中，“无线条”、“单色线条”、“渐变线条”三个选项均未选中。取消选择并再次选择
浏览 3提问于2021-09-21得票数 0
现状：Sub DETERMINE_IF_ANY_SHAPE_IS_SELECTED () Debug.print ActiveWindow.Selection.ShapeRange.CountEnd Sub
但是这会引发一个错误，因为选择了"n
浏览 2提问于2021-04-17得票数 0
回答已采纳
我将PowerPoint中的形状与委托给脚本的操作关联起来。在脚本本身中，我定义了一个断点并引发了一个错误(只是为了调试目的)。当我运行演示文稿并单击形状时，断点被忽略，并且没有显示错误消息，代码只是静默地停止在引发错误的行处。当我从表单按钮的事件处理程序运行VBA脚本时，VBA的行为与预期一致:断点被考虑在内，并弹出错误消息。是否有一个解释，为什么VBA在执行从操作调用的过程时表现不同，而不是从事件</em
浏览 3提问于2013-11-20得票数 1
2回答
我正在尝试创建一个excel模板，在这个模板中，我已经为作为按钮的不同形状分配了不同的宏。现在，由于需要在单击该形状后修改单击形状的属性，所以我在定位所单击的形状时遇到了问题。在搜索此问题时，我注意到有一种方法可以识别已选择的形状，而我仍然不知道如何获取我单击的形状的名称，或者是否有一种方法可以在VBA中引用该单击形状？谢谢!
浏览 6提问于2013-11-04得票数 9
1回答
我有一个模板，它使用vba来响应形状事件。通常，当用户双击形状时，将显示一个用户窗体，用户可以使用该窗体编辑形状数据。Google给了我一个提示，让我下载Visio SDK并查看“持久事件”。然而，按照安装说明，我仍然没有在我的开发者标签中看到“持久事件”--也不确定它们是什么，以及它们是否是我所需要的。
总
浏览 24提问于2017-12-13得票数 0
回答已采纳
在某个时刻，vba为dropdown分配了一个事件代码，我将其删除。
现在我不能使用这个下拉列表，因为在每次值更改时，它都会抱怨无法执行已删除的代码。如何删除此事件代码？
浏览 3提问于2013-04-25得票数 0
回答已采纳
我是VSTO和C#的新手，有一个关于事件的问题。当用户选择PowerPoint中的某个内容(例如形状、幻灯片等)时，我试图触发一个事件。我在Office文档中找到了一个适用于VBA的解决方案，并找到了一些关于单词选择处理程序的更多信息，但是我不知道如何在我的ThisAddIn.cs上下文中添加它。
浏览 9提问于2022-08-22得票数 0
回答已采纳
1回答
我刚开始在Visio中做VBA，而且我在“获取”事件处理时遇到了问题，而这并不是在文档对象级别。也就是说，我试图捕捉当形状数据值被更改时触发的事件。我下载了Visio2010SDK，相关事件是FormulaChanged和CellChanged。然而，我不知道如何触发这些事件。如何在VBA中捕获在编辑形状数据值时触发的FormulaChanged和/或CellChanged事件？
浏览 5提问于2014-05-08得票数 1
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
