[CDR 2017-2021] VBA: определить, пуст ли файл или нет

[mnemonix]

Прошу подсказки - как определить средствами VBA, есть ли в файле объекты или он пуст.

 

[Gad]

VBA, есть ли в файле объекты или он пуст.

посчитать?

 

[mnemonix]

Нет, просто наличие или отсутствие объектов в открытом или созданном файле.

 

[_MBK_]

А в чем проблема? Shapes.Count больше нуля

 

[mnemonix]

А в чем проблема? Shapes.Count больше нуля

А если текст, изображение, заблокированный объект? Любой.

 

[_MBK_]

А если текст, изображение, заблокированный объект? Любой.

Да. Даже направляющие

 

[mnemonix]

Попробую)

 

[Gad]

Не особо разбираюсь в VBA CorelDraw, но... посчитать?

Public Sub ExistenceObjects()
Dim d As Document
Set d = ActiveDocument
NumObjs = 0
For Each np In d.Pages
    NumObjs = NumObjs + np.SelectableShapes.Count
Next np
If NumObjs > 0 Then
    MsgBox ("Objects found")
    Else
    MsgBox ("Objects are not found")
End If
End Sub

 

[_MBK_]

У тебя SelectableShapes, а это вовсе не

А если текст, изображение, заблокированный объект? Любой.

 

[Gad]

Угу np.SelectableShapes.Count заменить на np.Shapes.Count

 

[_MBK_]

Да

 

[mnemonix]

Заработало!
Даже со скрытыми и залоченными объектами.