Excel Macro Help

[Achintha_c]

Machanlaa,
Mata excel sheet ekaka mata oni position ekaka mata oni size ekata Auto shape ekak aluthin adinne kohomada (Macro Code walin). Danna kauruhari kiyanawada? Thankx...

 

[blackhole]

Machanlaa,
Mata excel sheet ekaka mata oni position ekaka mata oni size ekata Auto shape ekak aluthin adinne kohomada (Macro Code walin). Danna kauruhari kiyanawada? Thankx...

Macho Excel wala Tools wala thiyenawa "Recored Macro" kiyala function ekak. Eken macro eka record wenna dala eta passe Shape ekaka Draw karala, Re-Size karapan. Dan ara macro eka record wena eka stop karala, ALT+F11 press karama Code eka balaganna puluwan. Eka ona vidihata modify karannath puluwan




Meke balapan Office VBA gena ebooks thibuna mata mathakai
http://www.elakiri.com/forum/showthread.php?t=106108&goto=newpost

 

[Achintha_c]

Macho Excel wala Tools wala thiyenawa "Recored Macro" kiyala function ekak. Eken macro eka record wenna dala eta passe Shape ekaka Draw karala, Re-Size karapan. Dan ara macro eka record wena eka stop karala, ALT+F11 press karama Code eka balaganna puluwan. Eka ona vidihata modify karannath puluwan




Meke balapan Office VBA gena ebooks thibuna mata mathakai
http://www.elakiri.com/forum/showthread.php?t=106108&goto=newpost

Macho mama record karala codes beluwa. shape adapu ekata kisima record ekak nehe.. a record karapu macro eka run kalata shape eka draw wenneth nehe..

 

[blackhole]

Macho mama record karala codes beluwa. shape adapu ekata kisima record ekak nehe.. a record karapu macro eka run kalata shape eka draw wenneth nehe..

Mama check kara ban. Macro record wenawa

Umbe office version eke kachal ekak da danne ne. Koi ekatath office wala Macro enabled karala thiyapan.

menna sample code ekak

Sub ShapeADD()

' ShapeADD Macro


ActiveSheet.Shapes.AddLine(54#, 111#, 270#, 112.5).Select

Selection.ShapeRange.Flip msoFlipVertical

ActiveSheet.Shapes.AddLine(55.5, 141#, 268.5, 141.75).Select

Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle

Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium

Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium

Selection.ShapeRange.Flip msoFlipVertical

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 108#, 169.5, 78#, 75.75). _

Select

ActiveSheet.Shapes.AddShape(msoShapeOval, 113.25, 275.25, 80.25, 79.5).Select

ActiveSheet.Shapes.AddShape(msoShapeHeart, 378.75, 87.75, 120#, 101.25). _

Select

ActiveSheet.Shapes.AddShape(msoShapeCloudCallout, 285#, 246#, 172.5, _

111#).Select

Selection.Characters.Text = ""

With Selection.Font

.Name = "Times New Roman"

.FontStyle = "Regular"

.Size = 12

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

End Sub

 

[Achintha_c]

Mama check kara ban. Macro record wenawa

Umbe office version eke kachal ekak da danne ne. Koi ekatath office wala Macro enabled karala thiyapan.

menna sample code ekak

Sub ShapeADD()

' ShapeADD Macro


ActiveSheet.Shapes.AddLine(54#, 111#, 270#, 112.5).Select

Selection.ShapeRange.Flip msoFlipVertical

ActiveSheet.Shapes.AddLine(55.5, 141#, 268.5, 141.75).Select

Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle

Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium

Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium

Selection.ShapeRange.Flip msoFlipVertical

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 108#, 169.5, 78#, 75.75). _

Select

ActiveSheet.Shapes.AddShape(msoShapeOval, 113.25, 275.25, 80.25, 79.5).Select

ActiveSheet.Shapes.AddShape(msoShapeHeart, 378.75, 87.75, 120#, 101.25). _

Select

ActiveSheet.Shapes.AddShape(msoShapeCloudCallout, 285#, 246#, 172.5, _

111#).Select

Selection.Characters.Text = ""

With Selection.Font

.Name = "Times New Roman"

.FontStyle = "Regular"

.Size = 12

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

End Sub

Thanks Machooo.. I will chek it....