Automatisation JMP avec VBA - Personnalisation du tracé de contour<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />Bonjour,
Je génère des tracés de contour avec JMP en utilisant l'automatisation VBA. Je dois d'abord ajuster la taille du cadre du tracé de contour. C'est ce que j'ai jusqu'à présent. Je peux faire le tracé de contour mais je continue à obtenir la taille d'image par défaut
Dim CP As JMP.Contour
Définir CP = jmpdoc1.CreateContourPlot
CP.LaunchAddX ("X")
CP.LaunchAddX ("Y")
CP.LaunchAddY ("Z")
CP.FillAreas (True)
CP.SpecifyContours 5, 15, 21, False
CP.SetFrameSize 200 400
CP.Lancement
Deuxièmement, j'essaie de changer les couleurs de contour par défaut. Enfin, je souhaite copier l'intrigue afin de pouvoir la coller ultérieurement dans Excel.
Re : Automatisation JMP avec VBA - Personnalisation du tracé de contourSalut,
Afin de définir la taille du cadre, vous devez d'abord obtenir un handle vers l'élément d'affichage de la boîte de cadre.Ensuite, vous pouvez modifier la taille.CopyToClipboard est fourni en tant que méthode sur le ContourPlot (et tous les objets de la plate-forme d'automatisation) pour copier le résultat dans le presse-papiers. Malheureusement, il n'y a pas de méthode d'automatisation pour changer les couleurs.Vous pouvez uniquement les inverser.Une alternative si cela est impératif est de créer le contour entier dans JSL et de soumettre ce JSL via les méthodes d'automatisation RunCommand ou RunJSLFile.
Un exemple pour redimensionner le cadre et copier le dans le presse-papiers serait :
Dim CP As JMP.Contour
Dim hand As Integer
CP = Doc.CreateContourPlot
CP.LaunchAddX("X")
CP.LaunchAddX("Y")
CP.LaunchAddY("Z")
CP.Lancement()
main = CP.GetGraphicItemByType("FrameBox", 1)
CP.SetFrameSize(main, 500, 500)
CP.CopyToClipboard()
Brian Corcoran
Développement JMP
