el codigo en cuestion cn el que estaba trabajando era este::
Código:
Private Sub Command1_Click()
Dim appRef As New Photoshop.Application
Dim docRef As Photoshop.Document
Dim selRef As Photoshop.Selection
Dim strokeColor As Photoshop.SolidColor
Dim fillColor As Photoshop.SolidColor
appRef.DisplayDialogs = psDisplayNoDialogs
appRef.Preferences.RulerUnits = psInches
If (appRef.Documents.Count > 0) Then
Set docRef = appRef.ActiveDocument
Set selRef = docRef.Selection
docRef.ActiveLayer = docRef.Layers(1)
Set strokeColor = CreateObject("Photoshop.SolidColor")
With strokeColor
.CMYK.Cyan = 0
.CMYK.Magenta = 0
.CMYK.Yellow = 0
.CMYK.Black = 100
End With
selRef.Stroke strokeColor, Width:=10
Set fillColor = CreateObject("Photoshop.SolidColor")
With fillColor
.RGB.Red = 255
.RGB.Green = 0
.RGB.Blue = 0
End With
selRef.Fill fillColor
Else
End If
End Sub
me deja el pc seko...a partir de ese momento no puedo abrir nada mas,y me sale una ventana diciendome q no hay memoria suficiente y q cambie de aplicacion...
no esty seguro de que es,asi porfavor denme su opinion..
un saludo y gracias de antemano