##// END OF EJS Templates
Projects » PositioningSystem
RSS
- HF limts test: limits optimized
LabVIEW -
r34:35
parent child Browse files
Show More
Show file before | Show file after | Hide comments
1 NO CONTENT: modified file
Show file before | Show file after | Hide comments
@@ -440,7 +440,7
440 440 <Property Name="NI.ClassItem.IsStaticMethod" Type="Bool">false</Property>
441 441 <Property Name="NI.ClassItem.MethodScope" Type="UInt">1</Property>
442 442 <Property Name="NI.ClassItem.Priority" Type="Int">1</Property>
443 <Property Name="NI.ClassItem.State" Type="Int">1074274832</Property>
443 <Property Name="NI.ClassItem.State" Type="Int">1082139152</Property>
444 444 </Item>
445 445 </Item>
446 446 <Item Name="PositioningUnit" Type="Folder">
Show file before | Show file after | Hide comments
1 NO CONTENT: modified file
Show file before | Show file after | Hide comments
1 NO CONTENT: modified file
Show file before | Show file after | Hide comments
1 NO CONTENT: modified file
Show file before | Show file after | Hide comments
1 NO CONTENT: modified file
Show file before | Show file after | Hide comments
1 NO CONTENT: modified file
Show file before | Show file after | Hide comments
1 NO CONTENT: modified file
Show file before | Show file after | Hide comments
1 NO CONTENT: modified file
Show file before | Show file after | Hide comments
1 NO CONTENT: modified file
Show file before | Show file after | Hide comments
1 NO CONTENT: modified file
Show file before | Show file after | Hide comments
1 NO CONTENT: modified file
Show file before | Show file after | Hide comments
@@ -1009,7 +1009,7
1009 1009 <Property Name="NI.ClassItem.IsStaticMethod" Type="Bool">true</Property>
1010 1010 <Property Name="NI.ClassItem.MethodScope" Type="UInt">1</Property>
1011 1011 <Property Name="NI.ClassItem.Priority" Type="Int">1</Property>
1012 <Property Name="NI.ClassItem.State" Type="Int">1342972432</Property>
1012 <Property Name="NI.ClassItem.State" Type="Int">1342710291</Property>
1013 1013 </Item>
1014 1014 <Item Name="RunDialog_MeasureDC.vi" Type="VI" URL="../SubVIs/RunDialog_MeasureDC.vi">
1015 1015 <Property Name="NI.ClassItem.ConnectorPane" Type="Bin">)1#!!!!!!!)!"1!&amp;!!!-!%!!!@````]!!!!"!!%!!!%.!!!!#!!-1#%'=X2B&gt;(6T!!!,1!-!"'.P:'5!!""!-0````]'=W^V=G.F!!!71&amp;!!!Q!!!!%!!AFF=H*P=C"P&gt;81!"!!!!&amp;"!=!!?!!!B(W.M98.T8V"P=WFU;7^O;7ZH5XFT&gt;'6N,GRW9WRB=X-!*7.I;7RE9WRB=X.@5'^T;82J&lt;WZJ&lt;G&gt;6&lt;GFU,GRW9WRB=X-A37Y!)%"1!!-!!!!"!!)4:8*S&lt;X)A;7YA+'ZP)'6S=G^S+1"5!0!!$!!$!!1!"!!%!!1!"!!%!!5!"A!%!!1!"!-!!(A!!!U)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!#A!!!!!!!!!!!!!!!!!!!!!"!!=!!!!!</Property>
@@ -1413,7 +1413,7
1413 1413 <Property Name="NI.ClassItem.IsStaticMethod" Type="Bool">true</Property>
1414 1414 <Property Name="NI.ClassItem.MethodScope" Type="UInt">1</Property>
1415 1415 <Property Name="NI.ClassItem.Priority" Type="Int">1</Property>
1416 <Property Name="NI.ClassItem.State" Type="Int">1115685394</Property>
1416 <Property Name="NI.ClassItem.State" Type="Int">1115685392</Property>
1417 1417 </Item>
1418 1418 <Item Name="PositioningUnit_DisableAxes.vi" Type="VI" URL="../SubVIs/PositioningUnit_DisableAxes.vi">
1419 1419 <Property Name="NI.ClassItem.ConnectorPane" Type="Bin">)1#!!!!!!!)!"1!&amp;!!!-!%!!!@````]!!!!"!!%!!!$R!!!!#!!-1#%'=X2B&gt;(6T!!!,1!-!"'.P:'5!!""!-0````]'=W^V=G.F!!!71&amp;!!!Q!!!!%!!AFF=H*P=C"P&gt;81!"!!!!$2!=!!?!!!B(W.M98.T8V"P=WFU;7^O;7ZH5XFT&gt;'6N,GRW9WRB=X-!#%.M98.T)%FO!!!A1&amp;!!!Q!!!!%!!B.F=H*P=C"J&lt;C!I&lt;G]A:8*S&lt;X)J!&amp;1!]!!-!!-!"!!%!!1!"!!%!!1!"1!'!!1!"!!%!Q!!?!!!$1A!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!+!!!!!!!!!!!!!!!!!!!!!!%!"Q!!!!!</Property>
@@ -1422,7 +1422,7
1422 1422 <Property Name="NI.ClassItem.IsStaticMethod" Type="Bool">true</Property>
1423 1423 <Property Name="NI.ClassItem.MethodScope" Type="UInt">1</Property>
1424 1424 <Property Name="NI.ClassItem.Priority" Type="Int">1</Property>
1425 <Property Name="NI.ClassItem.State" Type="Int">1082139154</Property>
1425 <Property Name="NI.ClassItem.State" Type="Int">1082139152</Property>
1426 1426 </Item>
1427 1427 <Item Name="PositioningUnit_GetPosition.vi" Type="VI" URL="../SubVIs/PositioningUnit_GetPosition.vi">
1428 1428 <Property Name="NI.ClassItem.ConnectorPane" Type="Bin">)1#!!!!!!!)!"1!&amp;!!!-!%!!!@````]!!!!"!!%!!!'\!!!!$A!-1#%'=X2B&gt;(6T!!!,1!-!"'.P:'5!!""!-0````]'=W^V=G.F!!!71&amp;!!!Q!!!!%!!AFF=H*P=C"P&gt;81!"!!!!!N!#A!&amp;18BJ=T%!#U!+!!6"?'FT-A!,1!I!"5&amp;Y;8-T!&amp;A!]1!!!!!!!!!#(W.M98.T8V"P=WFU;7^O;7ZH5XFT&gt;'6N,GRW9WRB=X-.9V"P=WFU;7^O,G.U&lt;!!C1&amp;!!!Q!&amp;!!9!"R"D1X6S=G6O&gt;&amp;"P=WFU;7^O!!!11#%+47&amp;O&gt;7&amp;M47^E:1!!.%"Q!"Y!!#%@9WRB=X.@5'^T;82J&lt;WZJ&lt;G&gt;4?8.U:7UO&lt;(:D&lt;'&amp;T=Q!*1WRB=X-A4X6U!$2!=!!?!!!B(W.M98.T8V"P=WFU;7^O;7ZH5XFT&gt;'6N,GRW9WRB=X-!#%.M98.T)%FO!!!A1&amp;!!!Q!!!!%!!B.F=H*P=C"J&lt;C!I&lt;G]A:8*S&lt;X)J!'%!]!!-!!-!"!!)!!E!"!!+!!1!#Q!-!!1!"!!%!Q!!?!!!$1A!!!!!!!!*!!!!#1!!!!!!!!!."Q!!!!!!!")!!!!+!!!!!!!!!!!!!!!!!!!.!!!!!!!)!!!!!!!!!!!"!!U!!!!!</Property>
@@ -1431,7 +1431,7
1431 1431 <Property Name="NI.ClassItem.IsStaticMethod" Type="Bool">true</Property>
1432 1432 <Property Name="NI.ClassItem.MethodScope" Type="UInt">1</Property>
1433 1433 <Property Name="NI.ClassItem.Priority" Type="Int">1</Property>
1434 <Property Name="NI.ClassItem.State" Type="Int">1115685394</Property>
1434 <Property Name="NI.ClassItem.State" Type="Int">1115685392</Property>
1435 1435 </Item>
1436 1436 <Item Name="PositioningUnit_Init.vi" Type="VI" URL="../SubVIs/PositioningUnit_Init.vi">
1437 1437 <Property Name="NI.ClassItem.ConnectorPane" Type="Bin">)1#!!!!!!!)!"1!&amp;!!!-!%!!!@````]!!!!"!!%!!!%S!!!!#1!-1#%'=X2B&gt;(6T!!!,1!-!"'.P:'5!!""!-0````]'=W^V=G.F!!!71&amp;!!!Q!!!!%!!AFF=H*P=C"P&gt;81!"!!!!$2!=!!?!!!B(W.M98.T8V"P=WFU;7^O;7ZH5XFT&gt;'6N,GRW9WRB=X-!#5.M98.T)%^V&gt;!!U1(!!(A!!)2^D&lt;'&amp;T=V^1&lt;X.J&gt;'FP&lt;GFO:V.Z=X2F&lt;3ZM&gt;G.M98.T!!B$&lt;'&amp;T=S"*&lt;A!!)%"1!!-!!!!"!!)4:8*S&lt;X)A;7YA+'ZP)'6S=G^S+1"B!0!!$!!$!!1!"!!%!!1!"1!%!!9!"Q!%!!1!"!-!!(A!!!U)!!!!!!!!!!!!!!!!!!!!!!!!$1=!!!!!!!!3!!!!#A!!!!!!!!!!!!!!!!!!$1!!!!!!#!!!!!!!!!!!!1!)!!!!!!</Property>
@@ -1449,7 +1449,7
1449 1449 <Property Name="NI.ClassItem.IsStaticMethod" Type="Bool">true</Property>
1450 1450 <Property Name="NI.ClassItem.MethodScope" Type="UInt">1</Property>
1451 1451 <Property Name="NI.ClassItem.Priority" Type="Int">1</Property>
1452 <Property Name="NI.ClassItem.State" Type="Int">1115685394</Property>
1452 <Property Name="NI.ClassItem.State" Type="Int">1115685392</Property>
1453 1453 </Item>
1454 1454 </Item>
1455 1455 <Item Name="TestRun" Type="Folder">
@@ -1479,7 +1479,7
1479 1479 <Property Name="NI.ClassItem.IsStaticMethod" Type="Bool">true</Property>
1480 1480 <Property Name="NI.ClassItem.MethodScope" Type="UInt">1</Property>
1481 1481 <Property Name="NI.ClassItem.Priority" Type="Int">1</Property>
1482 <Property Name="NI.ClassItem.State" Type="Int">1115685394</Property>
1482 <Property Name="NI.ClassItem.State" Type="Int">1115685392</Property>
1483 1483 </Item>
1484 1484 <Item Name="TestRun_Delay.vi" Type="VI" URL="../SubVIs/TestRun_Delay.vi">
1485 1485 <Property Name="NI.ClassItem.ConnectorPane" Type="Bin">)1#!!!!!!!)!"1!&amp;!!!-!%!!!@````]!!!!"!!%!!!%8!!!!#1!-1#%'=X2B&gt;(6T!!!,1!-!"'.P:'5!!""!-0````]'=W^V=G.F!!!71&amp;!!!Q!!!!%!!AFF=H*P=C"P&gt;81!"!!!!#"!5!!$!!!!!1!#%W6S=G^S)'FO)#BO&lt;S"F=H*P=CE!#U!(!!25;7VF!!"0!0%!!!!!!!!!!B^D&lt;'&amp;T=V^1&lt;X.J&gt;'FP&lt;GFO:V.Z=X2F&lt;3ZM&gt;G.M98.T$G.4&gt;'6Q2'6M98EO9X2M!"B!5!!"!!9+9V.U:8"%:7RB?1!!6!$Q!!Q!!Q!%!!1!"!!%!!1!"!!%!!5!"!!%!!=$!!"Y!!!.#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!I!!!!!!!!!!!!!!"!!!!!!!1!)!!!!!!</Property>
@@ -1497,7 +1497,7
1497 1497 <Property Name="NI.ClassItem.IsStaticMethod" Type="Bool">true</Property>
1498 1498 <Property Name="NI.ClassItem.MethodScope" Type="UInt">1</Property>
1499 1499 <Property Name="NI.ClassItem.Priority" Type="Int">1</Property>
1500 <Property Name="NI.ClassItem.State" Type="Int">1115685394</Property>
1500 <Property Name="NI.ClassItem.State" Type="Int">1115685392</Property>
1501 1501 </Item>
1502 1502 <Item Name="TestRun_Measurement.vi" Type="VI" URL="../SubVIs/TestRun_Measurement.vi">
1503 1503 <Property Name="NI.ClassItem.ConnectorPane" Type="Bin">)1#!!!!!!!)!"1!&amp;!!!-!%!!!@````]!!!!"!!%!!!4]!!!!-1!-1#%'=X2B&gt;(6T!!!,1!-!"'.P:'5!!""!-0````]'=W^V=G.F!!!71&amp;!!!Q!!!!%!!AFF=H*P=C"P&gt;81!&amp;E!S`````QVB=("F&lt;G2F:#"Q982I!!Q!1!!"`````Q!%!!A!5!!"!!5!%E"!!!(`````!!9&amp;2GFM:8-!%U!$!!V-&lt;W&amp;E1XFD&lt;'5A4X6U!"&gt;!!Q!1476B=X6S:7VF&lt;H2T)%^V&gt;!!!"1!+!!!51(!!#!!"!!I!%A!!"5&amp;Y;8-T!":!1!!"`````Q!,#%&amp;Y:8.3:7:T!!!U1(!!(A!!)2^D&lt;'&amp;T=V^1&lt;X.J&gt;'FP&lt;GFO:V.Z=X2F&lt;3ZM&gt;G.M98.T!!F$&lt;'&amp;T=S"0&gt;81!$E!S`````Q21982I!!!U1(!!(A!!)2^D&lt;'&amp;T=V^1&lt;X.J&gt;'FP&lt;GFO:V.Z=X2F&lt;3ZM&gt;G.M98.T!!B$&lt;'&amp;T=S"*&lt;A!!)%"1!!-!!!!"!!)4:8*S&lt;X)A;7YA+'ZP)'6S=G^S+1!/1$$`````"&amp;6T:8)!!""!-0````]'6'6T&gt;%F%!!!21!-!#F2F=X2/&gt;7VC:8)!!""!-0````](1W^N&lt;76O&gt;!!21!9!#E:P=G.F4'FN;81!!"&gt;!#A!22G^S9W6-;7VJ&gt;&amp;:P&lt;(2B:W5!$U!+!!B7:7RP9WFU?1!!%U!+!!R"9W.F&lt;'6S982J&lt;WY!!!N!#A!%3G6S;Q!!%5!+!!J*&lt;GFU8U&amp;Y;8-R!!!21!I!#EFO;82@18BJ=T)!!"&amp;!#A!+37ZJ&gt;&amp;^"?'FT-Q!!'%!Q`````QZ5:8.U5H6O1W^N&lt;76O&gt;!!!9!$R!!!!!!!!!!)@9WRB=X.@5'^T;82J&lt;WZJ&lt;G&gt;4?8.U:7UO&lt;(:D&lt;'&amp;T=QFD6'6T&gt;#ZD&gt;'Q!,E"1!!U!%1!3!"-!&amp;!!6!"9!&amp;Q!9!"E!'A!&lt;!"Q!(1FD6'6T&gt;%2B&gt;'%!%U!$!!R.:7&amp;T&gt;8*F&lt;76O&gt;(-!!"&amp;!!Q!+4'^B:%.Z9WRF)!!!#U!$!!6*&lt;G2F?!!31%!!!@````]!"!6';7RF=Q!)!&amp;!!!1!C!"*!1!!"`````Q!D"5:J&lt;'6T!":!5!!%!"]!)!!B!#1(2'&amp;U93"*&lt;A"&gt;!0%!!!!!!!!!!B^D&lt;'&amp;T=V^1&lt;X.J&gt;'FP&lt;GFO:V.Z=X2F&lt;3ZM&gt;G.M98.T&amp;'..&lt;X:J&lt;G&gt;198*B&lt;76U:8)O9X2M!#"!5!!$!"=!'!!:$UVP&gt;GFO:V"B=G&amp;N:82F=A!71#%2476B=X6S:6*F=WFT&gt;'&amp;O9W5!&amp;U!'!"&amp;3:8.J=X2B&lt;G.F1WBB&lt;GZF&lt;!!31#%-476B=X6S:5:P=G.F!!!91%!!!P``````````!!I'47&amp;U=GFY!!!)!$$`````!#*!1!!#``````````]!+R".982S;8B(:7ZF=G&amp;U;7^O!!!&lt;1!9!&amp;%VB&gt;(*J?%&gt;F&lt;G6S982J&lt;WZ5?8"F!!!81!9!%%RP972$;'&amp;O:W60=(2J&lt;WY!!'M!]1!!!!!!!!!#(W.M98.T8V"P=WFU;7^O;7ZH5XFT&gt;'6N,GRW9WRB=X-59V.U:8".:7&amp;T&gt;8*F&lt;76O&gt;#ZD&gt;'Q!,E"1!!E!*A!H!#A!+1!K!"1!,!!N!#Y19V.U:8".:7&amp;T&gt;8*F&lt;76O&gt;!!!91$Q!!Q!!Q!(!!A!#1!-!!U!$A!0!"!!(A!F!#]$!!"Y!!!.#!!!#1!!!!E!!!!*!!!#%!!!!!U(!!!1!!!!%A!!!!I!!!!1!!!!%!!!!"!!!!U!!!!!!!A!!!!!!!!!!!%!-!!!!!!</Property>
@@ -1605,7 +1605,7
1605 1605 <Property Name="NI.ClassItem.IsStaticMethod" Type="Bool">true</Property>
1606 1606 <Property Name="NI.ClassItem.MethodScope" Type="UInt">1</Property>
1607 1607 <Property Name="NI.ClassItem.Priority" Type="Int">1</Property>
1608 <Property Name="NI.ClassItem.State" Type="Int">1115685394</Property>
1608 <Property Name="NI.ClassItem.State" Type="Int">1115685392</Property>
1609 1609 </Item>
1610 1610 <Item Name="TestRun_RandomPosition_GetPosition.vi" Type="VI" URL="../SubVIs/TestRun_RandomPosition_GetPosition.vi">
1611 1611 <Property Name="NI.ClassItem.ConnectorPane" Type="Bin">)1#!!!!!!!)!"1!&amp;!!!-!%!!!@````]!!!!"!!%!!!%(!!!!#1!%!!!!%%!B#V.F&gt;&amp;"P=WFU;7^O!".!#A!-5'^T;82J&lt;WYA4X6U!!!+1#%%37ZJ&gt;!!!#5!+!!..98A!$U!+!!F%:8:J982J&lt;WY!51$R!!!!!!!!!!)@9WRB=X.@5'^T;82J&lt;WZJ&lt;G&gt;4?8.U:7UO&lt;(:D&lt;'&amp;T=R&amp;F2'FT&gt;(*J9H6U;7^O,G.U&lt;!!81!9!$%2J=X2S;7*V&gt;'FP&lt;A!!%5!+!!N1&lt;X.J&gt;'FP&lt;C"*&lt;A"5!0!!$!!!!!!!!1!#!!!!!!!!!!-!"!!&amp;!!9!"Q-!!(A!!!!!!!!!!!!!#1!!!!E!!!!!!!!!!!!!!!!!!!!1!!!!%!!!!!A!!!!1!!!!%!!!!!!"!!A!!!!!</Property>
@@ -1669,7 +1669,7
1669 1669 <Property Name="NI.ClassItem.IsStaticMethod" Type="Bool">true</Property>
1670 1670 <Property Name="NI.ClassItem.MethodScope" Type="UInt">1</Property>
1671 1671 <Property Name="NI.ClassItem.Priority" Type="Int">1</Property>
1672 <Property Name="NI.ClassItem.State" Type="Int">1115685394</Property>
1672 <Property Name="NI.ClassItem.State" Type="Int">1115685392</Property>
1673 1673 </Item>
1674 1674 <Item Name="ControlLearningButtons.vi" Type="VI" URL="../SubVIs/ControlLearningButtons.vi">
1675 1675 <Property Name="NI.ClassItem.ConnectorPane" Type="Bin">)1#!!!!!!!)!"1!&amp;!!!-!%!!!@````]!!!!"!!%!!!)@!!!!$Q!-1#%'=X2B&gt;(6T!!!,1!-!"'.P:'5!!""!-0````]'=W^V=G.F!!!71&amp;!!!Q!!!!%!!AFF=H*P=C"P&gt;81!"!!!!!N!#A!&amp;18BJ=T%!#U!+!!6"?'FT-A!,1!I!"5&amp;Y;8-T!&amp;!!]1!!!!!!!!!#(W.M98.T8V"P=WFU;7^O;7ZH5XFT&gt;'6N,GRW9WRB=X-.9V"P=WFU;7^O,G.U&lt;!!;1&amp;!!!Q!&amp;!!9!"QB1&lt;X.J&gt;'FP&lt;A!!)%"1!!-!!!!"!!)4:8*S&lt;X)A;7YA+'ZP)'6S=G^S+1!-1#%'23V4&gt;'^Q!!!&amp;!!I!!"J!1!!#``````````]!#QF*&lt;H.F&gt;%2B&gt;'%!RA$R!!!!!!!!!!)@9WRB=X.@5'^T;82J&lt;WZJ&lt;G&gt;4?8.U:7UO&lt;(:D&lt;'&amp;T=RJF4'6B=GZJ&lt;G&gt;#&gt;82U&lt;WZT4X"U;7^O,G.U&lt;!#$1"9!#!J%;8.B9GRF17RM$52J=W&amp;C&lt;'6.&lt;X:J&lt;G='27ZB9GRF$5.I:7.L5G6M982J&gt;G5-5WBP&gt;V*F&lt;'&amp;U;8:F$%BJ:'63:7RB&gt;'FW:1N4;'^X476B=X6S:1N);72F476B=X6S:1!7:5RF98*O;7ZH1H6U&gt;'^O=U^Q&gt;'FP&lt;A!!6!$Q!!Q!!Q!%!!1!"!!%!!1!"!!)!!E!#A!-!!U$!!"Y!!!.#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!I!!!!+!!!##!!!!"!!!!!!!1!/!!!!!!</Property>
@@ -1912,7 +1912,7
1912 1912 <Property Name="NI.ClassItem.IsStaticMethod" Type="Bool">true</Property>
1913 1913 <Property Name="NI.ClassItem.MethodScope" Type="UInt">1</Property>
1914 1914 <Property Name="NI.ClassItem.Priority" Type="Int">1</Property>
1915 <Property Name="NI.ClassItem.State" Type="Int">1115685394</Property>
1915 <Property Name="NI.ClassItem.State" Type="Int">1115685392</Property>
1916 1916 </Item>
1917 1917 <Item Name="WriteForceToExcel.vi" Type="VI" URL="../SubVIs/WriteForceToExcel.vi">
1918 1918 <Property Name="NI.ClassItem.ConnectorPane" Type="Bin">)1#!!!!!!!)!"1!&amp;!!!-!%!!!@````]!!!!"!!%!!!%H!!!!$Q!-1#%'=X2B&gt;(6T!!!,1!-!"'.P:'5!!""!-0````]'=W^V=G.F!!!71&amp;!!!Q!!!!%!!AFF=H*P=C"P&gt;81!"!!!!""!-0````]'5X2S;7ZH!!!31%!!!@````]!"16/97VF=Q!A1&amp;!!!Q!!!!%!!B.F=H*P=C"J&lt;C!I&lt;G]A:8*S&lt;X)J!"*!-P````])6'6N='RB&gt;'5!!!&gt;!#A!"7!!(1!I!!6E!#A"1!!)!#1!+!""!1!!"`````Q!,!FB:!!!/1$,`````"&amp;"B&gt;'A!!&amp;1!]!!-!!-!"!!%!!1!"!!%!!9!"!!(!!A!$!!.!Q!!?!!!$1A!!!!!!!!!!!!!!!!!!!!!!!!!!!!#%!!!!!!!!!!+!!!!%!!!!B!!!!!1!!!!!!%!$A!!!!!</Property>
Show file before | Show file after | Hide comments
1 NO CONTENT: modified file
Show file before | Show file after | Hide comments
@@ -453,7 +453,6
453 453 ' 7) Diagramme für die HF-Messung
454 454 ' =========================================
455 455 Sub AktualisiereXYDiagrammHF()
456
457 456 Dim datenWs As Worksheet
458 457 Dim diagrammWs As Worksheet
459 458 Dim chartObj As ChartObject
@@ -470,25 +469,25
470 469 Application.ScreenUpdating = False
471 470 Application.EnableEvents = False
472 471
473 ' Für Paare 2->18, 3->19...17->33 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
472 ' Für Paare 2->18, 3->19...17->33
474 473 For dataIndex = 2 To 17
475
474
476 475 chartIndex = dataIndex + 16
477
476
478 477 Set datenWs = ThisWorkbook.Worksheets(dataIndex)
479 478 Set diagrammWs = ThisWorkbook.Worksheets(chartIndex)
480 479 Set chartObj = diagrammWs.ChartObjects(1)
481 480 Set diagramm = chartObj.Chart
482
481
483 482 letzteZeile = datenWs.Cells(datenWs.Rows.Count, 1).End(xlUp).Row
484 483 letzteSpalte = datenWs.Cells(2, datenWs.Columns.Count).End(xlToLeft).Column
485
484
486 485 Set xRange = datenWs.Range(datenWs.Cells(3, 1), datenWs.Cells(letzteZeile, 1))
487
486
488 487 Do While diagramm.SeriesCollection.Count > 0
489 488 diagramm.SeriesCollection(1).Delete
490 489 Loop
491
490
492 491 For i = 2 To letzteSpalte
493 492 Set yRange = datenWs.Range(datenWs.Cells(3, i), datenWs.Cells(letzteZeile, i))
494 493 With diagramm.SeriesCollection.NewSeries
@@ -497,21 +496,33
497 496 .Values = yRange
498 497 .Smooth = False
499 498 .ChartType = xlXYScatterLines
500
499
501 500 ' --- Nur Linie, keine Punkte ---
502 501 .MarkerStyle = xlMarkerStyleNone
503 502 End With
504 503 Next i
505
504
506 505 ' ---- Farben der ersten 3 Serien fest zuweisen ----
507 506 If diagramm.SeriesCollection.Count >= 1 Then diagramm.SeriesCollection(1).Format.Line.ForeColor.RGB = RGB(255, 128, 64)
508 507 If diagramm.SeriesCollection.Count >= 2 Then diagramm.SeriesCollection(2).Format.Line.ForeColor.RGB = RGB(255, 0, 0)
509 508 If diagramm.SeriesCollection.Count >= 3 Then diagramm.SeriesCollection(3).Format.Line.ForeColor.RGB = RGB(0, 128, 189)
510 509
510 ' ---- Legende nur ausblenden, wenn:
511 ' Datensatz 1 leer, Datensatz 2 leer, Datensatz 3 hat Werte ----
512 Dim hat1 As Boolean, hat2 As Boolean, hat3 As Boolean
513
514 hat1 = WorksheetFunction.CountA(datenWs.Range(datenWs.Cells(3, 2), datenWs.Cells(letzteZeile, 2))) > 0 ' Spalte B
515 hat2 = WorksheetFunction.CountA(datenWs.Range(datenWs.Cells(3, 3), datenWs.Cells(letzteZeile, 3))) > 0 ' Spalte C
516 hat3 = WorksheetFunction.CountA(datenWs.Range(datenWs.Cells(3, 4), datenWs.Cells(letzteZeile, 4))) > 0 ' Spalte D
517
518 If (Not hat1) And (Not hat2) And hat3 Then
519 diagramm.HasLegend = False
520 Else
521 diagramm.HasLegend = True
522 End If
523
511 524 Next dataIndex
512 525
513 526 Application.EnableEvents = True
514 527 Application.ScreenUpdating = True
515
516 End Sub
517
528 End Sub No newline at end of file
General Comments 0
You need to be logged in to leave comments. Login now