EBDN - Community - Question & Answers

  Tuesday, 25 July 2017
  1 Replies
  1.5K Visits
0
Votes
Undo
Hello everybody.

My question is very easy: is there a way to have a code sample for ExecuteSheetOperation ? I have read about Strucs and Enum, but I can't find any code sample for this.

I have the following code:

Public Sub CheckFonts()
Dim prj As IAucObject
Dim ws As IAucWorksheet
Dim sh As Aucotec.Sheet

Set prj = Application.Selection(1).Project
Set ws = prj.Project.EquipmentFolder.OpenWorksheet("Sheets";)

For i = 1 To ws.RowCount
Set sh = ws.GetObjectItem(i)
sh.Open aucSheetOpenVisio

'select all symbols inside sheet

'set Arial Font for all simbols inside sheet

sh.Close
Next i
End Sub

Thanks in advance for your great support.

Best regards
Franco Silveri