How to Balloon Move and/or Align

[bradeneuropeArthur]

Hi,

How can I move/reposition/align a drawing balloon with either vba/vb.net/I-logic?

Regards,

[bradeneuropeArthur]

Hi,@Sergio.D.Suárez 

Maybe you have an idea for this!

Regards,

[Sergio.D.Suárez · Accepted solution]

Hello! try to take a sheet, place a view and add a ballon. Then it is necessary to create an access to its coordinates and it worked. The problem that I can not reposition to another place with code, try to match the corrected ones and do not perform any action, I keep trying and trying. regards

Dim doc = ThisDoc.Document

coordX = Round(doc.Activesheet.Balloons(1).Position.X,3)
coordY = Round(doc.Activesheet.Balloons(1).Position.Y,3)
MessageBox.Show(coordX & " | " & coordY )

Dim oPlacementPoint As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(2,2)

'doc.Activesheet.Balloons(1).Position = oPlacementPoint

doc.Activesheet.Balloons(1).Position.X = oPlacementPoint.X
doc.Activesheet.Balloons(1).Position.Y = oPlacementPoint.Y

[bradeneuropeArthur]

Hi @Sergio.D.Suárez 

That seems to be also my problem.

Repositioning with "putpointdata" does not work....

Thanks anyway!

[bradeneuropeArthur · Accepted solution]

Hi,

Found it after removed the uncommented...

Public Sub main()
Dim doc As DrawingDocument
Set doc = ThisApplication.ActiveDocument '.Document

coordX = Round(doc.ActiveSheet.Balloons(1).Position.X, 3)
coordY = Round(doc.ActiveSheet.Balloons(1).Position.Y, 3)
MsgBox (coordX & " | " & coordY)

Dim oPlacementPoint As Point2d
Set oPlacementPoint = ThisApplication.TransientGeometry.CreatePoint2d(2, 2)

doc.ActiveSheet.Balloons(1).Position = oPlacementPoint

End Sub

[Sergio.D.Suárez]

I imagined it, it must be an ilogic bug, in ilogic 2018 it does not work, or maybe you have to add a header at the beginning to make it work.
I'm glad that as always you reach the solution! Best Regards!

[bradeneuropeArthur]

Hi, @Sergio.D.Suárez 

Thank you also as usual.

You really put me in the right direction, so actual you solved it.

Thanks for supporting in the forum.

Regards,

[bradeneuropeArthur · Accepted solution]

Hi, @Sergio.D.Suárez 

Also the I-logic code works fine with some modification!

Dim doc As DrawingDocument = ThisDoc.Document

coordX = Round(doc.Activesheet.Balloons(1).Position.X,3)
coordY = Round(doc.Activesheet.Balloons(1).Position.Y,3)
MessageBox.Show(coordX & " | " & coordY )

Dim oPlacementPoint As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(20,20)

doc.Activesheet.Balloons(1).Position = oPlacementPoint

Regards,

[Anonymous]

Hi, With very little knowledge  and with above reference of code,  I tweak code a bit and managed to move my balloons in horizontal, Vertical and in Diagonal direction

But, I want  my Balloons placed "AROUND" can somebody help me go in right direction.

here is my ilogic code with reference to above post:

Dim doc As DrawingDocument = ThisDoc.Document

Dim n1 As Integer = 0 
Dim n2 As Integer = 0
n1+= 10
n2+= 10
Dim i As Integer
For i = 1 To 28
coordX = Round(doc.ActiveSheet.Balloons(i).Position.X,n1)
coordY = Round(doc.ActiveSheet.Balloons(i).Position.Y,n1)
'MessageBox.Show(coordX & " | " & coordY )

'Dim oPlacementPoint As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(20, ActiveSheet.View("VIEW2").View.Top)
Dim oPlacementPoint As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(n1+i,ActiveSheet.View("VIEW2").View.Top)

doc.ActiveSheet.Balloons(i).Position = oPlacementPoint
Next

Regards

Hameed