VBA PowerPoint“ObjectSGroup”问题“整数超出范围”
谢谢，莉娜
Sub Test2() Dim sld As Slide Dim shp1 As Shape Dim shp2 As Shape Dim oshpR As ShapeRange
共有1个答案
通过commandbars.executemso进行分组需要选择要分组的形状。创建shaperange并不隐式地选择范围内的形状。
请尝试以下操作：
Sub Test2()
Dim sld As Slide
Dim shp1 As Shape
Dim shp2 As Shape
Dim oshpR As ShapeRange
Set sld = Application.ActiveWindow.View.Slide
Set shp1 = ActivePresentation.Slides(1).Shapes.AddShape(msoShapeOval, 300, 100, 50, 50)
Set shp2 = ActivePresentation.Slides(1).Shapes.AddShape(msoShapePie, 300, 100, 50, 50)
'Set oshpR = sld.Shapes.Range(Array(shp1.ZOrderPosition, shp2.ZOrderPosition))
' msoTrue forces a new selection
shp1.Select msoTrue
' msoFalse adds the shape to the current selection
shp2.Select msoFalse
CommandBars.ExecuteMso ("ObjectsGroup")
End Sub
您也可以选择您定义的shaperange：
Set oshpR = sld.Shapes.Range(Array(shp1.ZOrderPosition, shp2.ZOrderPosition))
oshpR.Select msoTrue
CommandBars.ExecuteMso ("ObjectsGroup")
-
问题内容： 该代码应该返回最大的质数。有关此任务的更多信息：https : //projecteuler.net/problem=3 我决定将checkFactors（）的参数加倍，因为我试图测试为什么我的代码无法正常工作。 工作并返回“ 29”。 但是， 不起作用， “ int类型的600851475143超出范围”。 确实可以编译，但是在几秒钟后给了我ArithmeticException。
-
这是LeetCode中的Pascal三角形编码问题，它要求输出Pascal三角形的第n行。使用，输出如下所示： 显然存在溢出问题。现在为了解决这个问题，我修改了行< code > result . push _ back(result[I-1]*(rowIndex 1-I)/I)；到< code > result . push _ back((double)result[I-1]*(double)
-
问题内容： 我有一列设置为尝试插入诸如的数字时，它表示超出范围。为什么？ 问题答案： 在 MySQL中，An 存储在4个字节上，因此只能包含和之间的值。 大于; 因此它不适合-看起来您将不得不使用 。 有关此信息，请参见MySQL手册的“ 数据类型- 数值类型” 部分 。
-
我在设置鹰派代理时遇到问题。我已经在 OpenShift 容器中设置了代理，当代理尝试调用在另一个容器中运行的另一个应用程序的 jolokia endpoint时，我收到此错误日志： 也许有人有类似的问题？代理的版本是Hawkular OpenShift Agent：版本：0.1.0。
-
问题内容： 我已经开始处理我的第一个Java程序，它是一个简单的计算器，但是我得到一个错误，声称我的数组超出范围。我尝试对其进行调试，以了解这样做的原因和原因，并遵循纸上的代码，两者均显示了我期望和期望的结果。因此，我看不到问题出在哪里。代码不完整。 根据调试器，此行出现错误： 这是我当前拥有的代码的主要部分： 这是我收到的错误消息： 问题答案： 当等于中的最后一个元素索引时，则将大于最后一个元素
-
我正在创建一个宏，它将从一个更大的工作簿中选择工作表，移动和保存这些工作表作为一个新的工作簿，然后移动到下一个集。 我创建了一个带有开始和结束值（由工作表索引号指定）的伪“数组”。 我遇到了一个“下标超出范围”的错误，在完成保存文件的部分后，但在将拉出下一组工作表的循环之前。