看到你的规则设置，

If ActiveSheet.View("视图1" ).Scale>=1 Then 
iProperties.Value("Custom","比例")=ActiveSheet.View("视图1" ) .Scale & ":1"
ElseiProperties.Value("Custom","比例")= "1:" & (1/ActiveSheet.View("视图1" ) .Scale )
End If

该模板只能对一张图纸有用，

 如果一张图纸里面有两张工程图或多个工程图就不能用了，

 有一个大的bug，请问如果一张工程图里面有多张工程图

怎么处理这个问题？