遇到过n多图层么,想快速查找图层名吗

插件 - CD插件补丁 - 编辑扩展及宏   2011-12-13 18:29发表  157 浏览  

iamsimao

上月收入 0 素材数量 0

3.0

0 K

免费

简体中文

1个月前

0

你有没有遇见一个CDR文件有几十甚至上百个图层,有没有找图层找的眼花缭乱,赶紧自己做一个小工具吧

通过自己输入图层名称的第一个或者几个字来查找图层并设置为当前层;

(供新新人学习,请高手指点;当我找到这个图层并且设为当前图层,但是当前层并不在对象管理器的窗口内,怎么改代码解决下?)

建一个类

写下面代码:

sub quickfind()

frmQF.show 0

end sub

然后新建一个userform,名字改为frmQF

上面新建一个textbox,名字改为txtQF

把下面代码贴进代码窗口

Option Explicit

Private Sub txtQF_Change()

Dim str1 As String

Dim str2 As String

Dim i As Long

Dim a As Long

Dim Lcount As Long

Dim lyrs As Layers

Locunt = ActivePage.Layers.Count

str1 = txtQF.Text

a = Len(str1)

For i = 1 To Lcount

Set lyrs = ActivePage.Layers

str2 = lyrs.item(i).Name

If str1 = Left(str2, a) Then

lyrs(i).Activate

End If

Next i

End Sub