Facultad de Ingenieria Química

MICHELLE GALLO VILLACORTA
APLICACIONES DE MACROS
Las macros son un grupo de instrucciones programadas bajo entorno vba (visual basic para aplicaciones), cuya tarea principal es la automatización de tareas repetitivas y la resolución de cálculos complejos. El lenguaje vba, es un lenguaje de programación basado en el visual Basic, enfocado a la realización de programas sobre las herramientas Excel, Access, Word...., mediante macros en vba podemos crear nuevas funciones para nuestras hojas Excel, personalizar estilos y formatos, crear programas para la resolución de cálculos complejos, automatizar tareas...

Mediante macros vba podemos crear múltiples aplicaciones que realicen los cálculos automáticamente y obtengamos resultados en apenas unos segundos. Las macros vba trabajan en diversos programas, los mas conocidos son los programas que se incluyen en el paquete Office (Excel ,Word, Access...) pero además las macros vba también trabajan en diversos programas como SolidWorks, Autocad...(software creado para el diseño de ingeniería) lo cual proporciona una enorme versatilidad de utilización, así como una comunicación entre diversos programas.A continuación se muestra una serie de ejemplos en los cuales se utilizan macros vba :

Macros Vba con Excel
Creación de nuevas funciones- como por ejemplo la función "código" que convierte dígitos alfanuméricos a dibujos basados en codificación de código de barras.Automatización de tareas repetitivas- realización de informes automáticos, conexión con bases de datos y otros programas. Resolución de cálculos complejos e iterativos.Creación de programas, como gestores documentales, software de planificación..... Macros Vba con AutoCad
Mediante macros vba podemos comunicar nuestras hojas Excel con los planos dibujados en autocad.
Creación de informes automáticos sobre los datos contenidos en los planos, información de los cajetines, información de los puntos, líneas y figuras contenidos en los planos...
Parametrización y creación de planos a través de una hoja Excel...
Creación de nuevas funciones para autocad......

Macros Vba con Solidworks

SolidWorks es un programa de CAD para modelado mecánico.El programa permite modelar piezas y conjuntos y extraer de ellos tanto planos como otro tipo de información necesaria para la producción. Es un programa que funciona con base en las nuevas técnicas de modelado con sistemas CAD. El proceso consiste en trasvasar la idea mental del diseñador al sistema CAD, "construyendo virtualmente" la pieza o conjunto. Posteriormente todas las extracciones (planos y ficheros de intercambio) se realizan de manera bastante automatizada.

En conclusion los macros se pueden aplicar en:
Macros con Microsoft Word

Sub Macro1()
'
' Macro grabada el 15/08/2008 por usuario
'

ActiveWindow.Selection.SlideRange.Shapes("Rectangle 2").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
With ActiveWindow.Selection.TextRange
.Text = "GALLO MICHELLE"
With .Font
.Name = "Times New Roman"
.Size = 44
.Bold = msoFalse
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 1
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppTitle
End With
End With
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 3").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
With ActiveWindow.Selection.TextRange
.Text = "UNT. QUIMICA" + Chr$(CharCode:=13) + Chr$(CharCode:=13) + "SECCION: B"
With .Font
.Name = " Times New Roman”
.Size = 44
.Bold = msoFalse
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 1
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppForeground
End With
End With
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 2").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 5.5
.IncrementTop -79.12
End With
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 3").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
With ActiveWindow.Selection.ShapeRange
.IncrementLeft -20.12
.IncrementTop -64.38
End With
End Sub
Macros con Microsoft Excel

Macros con Microsoft Access