MACROS AND VISUAL BASIC
LSM 710 and LSM 780
Carl Zeiss
VBA PROGRAMMING FOR LSM
Systems
42 M60-1-0025
e
02/2010
For lI = 0 To TD.DetectionChannelCount - 1
Set DetS = TS.DetectionChannelObjectByIndex(lI, success)
Set DetD = TD.DetectionChannelObjectByIndex(lI, success)
DetD.Filter1 = DetS.Filter1
DetD.Filter2 = DetS.Filter2
DetD.DetectorGain = DetS.DetectorGain
DetD.AmplifierGain = DetS.AmplifierGain
DetD.AmplifierOffset = DetS.AmplifierOffset
DetD.PinholeDiameter = DetS.PinholeDiameter
Next lI
For lI = 0 To TD.IlluminationChannelCount - 1
Set IlS = TS.IlluminationObjectByIndex(lI, success)
Set IlD = TD.IlluminationObjectByIndex(lI, success)
IlD.Acquire = IlS.Acquire
lD.Power = IlS.Power
IlD.DetectionChannelName = IlS.DetectionChannelName
Next lI
For lI = 0 To TD.BeamSplitterCount - 1
Set BS = TS.BeamSplitterObjectByIndex(lI, success)
Set BD = TD.BeamSplitterObjectByIndex(lI, success)
BD.Filter = BS.Filter
Next lI
Next lT
End Sub