如何选中组合的流程图，设置格式，全选不管用

1478525

如何选中组合的流程图，设置格式，全选不管用。

想设置全文的段落格式为不定义网格，但是全选后，组合图形里的不起作用。感谢。

1478525

冬瓜大佬的代码是这个Sub 删除组合图形和文本框() Dim myShape As shape For Each myShape In ActiveDocument.Shapes With myShape If .Type = msoGroup Or .Type = msptextbox Then .Delete End With Next myShape Set myShape = Nothing End Sub

1478525

Sub 设置组合图形和文本框段落格式为单倍行距()
    Dim myShape As shape
    For Each myShape In ActiveDocument.Shapes
        With myShape
            If .Type = msoGroup Or .Type = msoTextBox Then
                If Not .textFrame Is Nothing Then
                    If .textFrame.HasText Then
                        With .textFrame.TextRange.ParagraphFormat
                            .LineSpacingRule = wdLineSpaceSingle
                            .SpaceBefore = 0
                            .SpaceAfter = 0
                            .DisableLineHeightGrid = True
                        End With
                    End If
                End If
            End If
        End With
    Next myShape
End Sub
ai改的是这个，但不起作用

batmanbbs

两种方法：
一是只针对组合形状，采用递归遍历
二是用遍历文本框架（对所有文本框架有效，如果形状、文本框等）

PS：直接Q我说明一下吧

1478525

batmanbbs 发表于 2024-7-21 20:24
两种方法：
一是只针对组合形状，采用递归遍历
二是用遍历文本框架（对所有文本框架有效，如果形状、文本 ...

哦哦哦  知道了

1478525

batmanbbs 发表于 2024-7-21 20:24
两种方法：
一是只针对组合形状，采用递归遍历
二是用遍历文本框架（对所有文本框架有效，如果形状、文本 ...

如果直接遍历文本框架，是针对每一个文本框吗 会不会速度慢

batmanbbs

1478525 发表于 2024-7-21 20:52
如果直接遍历文本框架，是针对每一个文本框吗 会不会速度慢

不光文本框，有文本框架的都会处理。慢不慢是次要的，重要的是你想要什么，至少能完成工作

1478525

batmanbbs 发表于 2024-7-21 21:02
不光文本框，有文本框架的都会处理。慢不慢是次要的，重要的是你想要什么，至少能完成工作

想要的是，文本框里的文字能刚好显示出来，所以就想调整一下段落为单倍行距，不对齐到网络，单个选中组合图形倒也可以，但是图形多了的话有点慢了

batmanbbs

1478525 发表于 2024-7-21 21:05
想要的是，文本框里的文字能刚好显示出来，所以就想调整一下段落为单倍行距，不对齐到网络，单个选中组合 ...

如果只对文本框操作，可能只能用遍历形状的方法，文本框架好像无法识别是文本框的文本框架
PS：如果文本超过文本框大小，调整网格和行距也无法显示完整的文本内容

1478525

batmanbbs 发表于 2024-7-21 21:21
如果只对文本框操作，可能只能用遍历形状的方法，文本框架好像无法识别是文本框的文本框架

好的好的 谢谢