Sub loadAvid2DLUT()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("LUT Converter").Select
ActiveSheet.ChartObjects("Chart 19").Activate
ActiveChart.SeriesCollection(1).XValues = "0,0"
ActiveChart.SeriesCollection(1).Values = "0,0"
ActiveChart.SeriesCollection(2).XValues = "0,0"
ActiveChart.SeriesCollection(2).Values = "0,0"
ActiveChart.SeriesCollection(3).XValues = "0,0"
ActiveChart.SeriesCollection(3).Values = "0,0"
Range("C20:V5000").Select
Selection.ClearContents
Range("A1").Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True
On Error Resume Next
Dim strFileName
strFileName = Application.GetOpenFilename("Text Files (*.*), *.*")
If strFileName <> False Then
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.OpenText Filename:=strFileName, Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=True, Other:=False
If Err.Number = 1004 Then
Exit Sub
End If
ActiveSheet.UsedRange.Select
Selection.Copy
ActiveWorkbook.Close
Sheets("LUT Convverter").Select
Range("C20").Select
ActiveSheet.Paste
Range("C20:E1043").Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "LUT load done", vbInformation
End If
End Sub
Sub loadChromeImaging3DLUT()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("LUT Converter").Select
ActiveSheet.ChartObjects("Chart 19").Activate
ActiveChart.SeriesCollection(1).XValues = "0,0"
ActiveChart.SeriesCollection(1).Values = "0,0"
ActiveChart.SeriesCollection(2).XValues = "0,0"
ActiveChart.SeriesCollection(2).Values = "0,0"
ActiveChart.SeriesCollection(3).XValues = "0,0"
ActiveChart.SeriesCollection(3).Values = "0,0"
Range("C20:V5000").Select
Selection.ClearContents
Range("A1").Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True
On Error Resume Next
Dim strFileName
strFileName = Application.GetOpenFilename("Text Files (*.*), *.*")
If strFileName <> False Then
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.OpenText Filename:=strFileName, Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=True, Other:=False
If Err.Number = 1004 Then
Exit Sub
End If
ActiveSheet.UsedRange.Select
Selection.Copy
ActiveWorkbook.Close
Sheets("LUT Convverter").Select
Range("C20").Select
ActiveSheet.Paste
Range("D22:F4934").Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "LUT load done", vbInformation
End If
End Sub
Sub loadCinetal2DLUT()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("LUT Converter").Select
ActiveSheet.ChartObjects("Chart 19").Activate
ActiveChart.SeriesCollection(1).XValues = "0,0"
ActiveChart.SeriesCollection(1).Values = "0,0"
ActiveChart.SeriesCollection(2).XValues = "0,0"
ActiveChart.SeriesCollection(2).Values = "0,0"
ActiveChart.SeriesCollection(3).XValues = "0,0"
ActiveChart.SeriesCollection(3).Values = "0,0"
Range("C20:V5000").Select
Selection.ClearContents
Range("A1").Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True
On Error Resume Next
Dim strFileName
strFileName = Application.GetOpenFilename("Text Files (*.*), *.*")
If strFileName <> False Then
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.OpenText Filename:=strFileName, Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=True, Other:=False
If Err.Number = 1004 Then
Exit Sub
End If
ActiveSheet.UsedRange.Select
Selection.Copy
ActiveWorkbook.Close
Sheets("LUT Convverter").Select
Range("C20").Select
ActiveSheet.Paste
Range("C29:E1052").Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "LUT load done", vbInformation
End If
End Sub