Visual Basic for Applications

CorelDraw & VBA

Arte, Ciência , , , , , , , ,

*
Por favor, click sobre a imagem para ampliá-la. Grato.
Link permanente para esta mensagem:__ http://wp.me/p1oMor-dcq
Mensagem número # 5.817 – Terça-feira @ 20120228090716
Visitas recebidas de Março de 2011 à 28/02/2012 = 37.688
Por favor, você pode divulgar o blog?
Link: http://sinapseslinks.wordpress.com/
Contato: Leal, e-mail: sinapseslinks@gmail.com
Muito obrigado pela sua importante visita!
Seja Abençoado.
*
*

*
*
CorelDraw & VBA
*
Are you a power user?
Keywords:
CorelDraw, Global Macro Storage, VBA, VB6, Visual Basic for Applications, Visual Basic programming.
*
Criação de macros usando VBA e também VB6… não é simples e/ou fácil. Tenho apanhado muito… faz tempo!!!
*
Pergunto:
Tenho algumas macros já desenvolvidas, em pleno uso, e quero transforma-las em arquivo GMS.
Tipo: GlobalMacros(EPL_flores)
?Como fazer?
Você pode me ajudar?
Muito obrigado.
Nota: na Internet… não encontrei a resposta!
*
Fraternalmente,
Leal
sinapseslinks@gmail.com
*

CorelDraw com VBA

Arte, Ciência, Filosofia ,

*
Por favor, click sobre a imagem para ampliá-la. Grato.
Link permanente para esta mensagem:__ http://wp.me/p1oMor-d6N
Mensagem número # 5.742 – Quinta-feira @ 20120216040607
Visitas recebidas de Março de 2011 à 16/02/2012 = 35.892
Por favor, você pode divulgar o blog?
Link: http://sinapseslinks.wordpress.com/
Contato: Leal, e-mail: sinapseslinks@gmail.com
Muito obrigado pela sua importante visita!
Seja Abençoado.
*
*

*
*
CorelDraw com VBA
*
Sub EPL_GetTks()
‘
‘ Recorded 14/02/2012 Jóia! Funcionou!
‘
ActiveDocument.Pages(2).Shapes.All.Copy
ActiveDocument.Pages(1).Activate
ActiveLayer.Paste
Dim Paste1 As ShapeRange
Set Paste1 = ActiveSelectionRange
ActiveLayer.Shapes(2).AddToSelection
Dim s1 As Shape
Set s1 = ActiveSelection.Group
ActiveDocument.Save
‘
End Sub ‘ Sub EPL_GetTks()
*
Amigo Visitante, Salve!
Você conhece o CorelDraw com VBA?
Eu gostaria de conhecê-lo para trocarmos informações técnicas.
Aguardo seu e-mail.
Muito obrigado.
Leal
sinapseslink@gmail.com
*