Dobry den, potreboval by som poradit s vytvorenim pravidla pre zmenu formatu vykresoveho listu ( na odporucanie zo starej temy som to riesil cez iLogic) a vyzera to asi takto : trigger = iTrigger0

Vyber_formatu = InputListBox("Formaty", MultiValue.List("Vyber_formatu"), Vyber_formatu, Title := "Formaty", ListName := "Vyber")



If Vyber_formatu = "OramA0" Then
ActiveSheet.ChangeSize("A0", MoveBorderItems := True)
ActiveSheet.Border = "OramA0"

ElseIf Vyber_formatu = "OramA1" Then
ActiveSheet.ChangeSize("A1", MoveBorderItems := True)
ActiveSheet.Border = "OramA1"

ElseIf Vyber_formatu = "OramA2" ThenActiveSheet.ChangeSize("A2", MoveBorderItems := True)
ActiveSheet.Border = "OramA2"ElseIf Vyber_formatu = "OramA3" ThenActiveSheet.ChangeSize("A3", MoveBorderItems := True)
ActiveSheet.Border = "OramA3"

ElseIf Vyber_formatu = "OramA4" ThenActiveSheet.ChangeSize("A4", MoveBorderItems := True)
ActiveSheet.Border = "OramA4"
End IfJe to aj funkcne no potrebujem tam pridat aj podmienku pre zmenu orientacie listu kedze mi ho stale zobrazuje na vysku, a tuto funkciu neviem najst. Vopred dakujem.

Viz vlastnost Orientation a kompletní iLogic kód v příbuzném tipu 9798.

Takto to mám já. oMyParameter=ThisApplication.ActiveDocument.Parameters.UserParametersTryParameter("FORMAT") = Parameter("FORMAT")CatchoParameter = oMyParameter.AddByValue("FORMAT", "A3", UnitsTypeEnum.kTextUnits)MultiValue.SetList("FORMAT", "A0", "A1", "A2", "A3", "A4")End TryParameter("FORMAT") = InputListBox("Zvolte formát výkresu.", MultiValue.List("FORMAT"), Parameter("FORMAT"), Title := "Formát výkresu", ListName := "Vyberte formát:")ActiveSheet.ChangeSize(Parameter("FORMAT"),MoveBorderItems := True)RuleParametersOutput()InventorVb.DocumentUpdate()If Parameter("FORMAT") = "A4" ThenThisApplication.ActiveDocument.ActiveSheet.Orientation = 10243 'PortraitElseThisApplication.ActiveDocument.ActiveSheet.Orientation = 10242 'LandscapeEnd IfThisApplication.ActiveView.Fit    'tento poslední řádek udělá na zoom všeIf Parameter("FORMAT") = "A4" Then ActiveSheet.Border = "A4"End IfIf Parameter("FORMAT") = "A3" Then ActiveSheet.Border = "A3"End IfIf Parameter("FORMAT") = "A2" Then ActiveSheet.Border = "A2"End IfIf Parameter("FORMAT") = "A1" Then ActiveSheet.Border = "A1"End IfIf Parameter("FORMAT") = "A0" Then ActiveSheet.Border = "A0"End If

Dakujem, vyskusam. VIP niesom.

Takze som sa pokusil to nejak kombinovat a vysledok je takyto : [code]trigger = iTrigger0

Vyber_formatu = InputListBox("Formaty", MultiValue.List("Vyber_formatu"), Vyber_formatu, Title := "Formaty", ListName := "Vyber")


If Parameter("Vyber_formatu") = "A4" Then
ThisApplication.ActiveDocument.ActiveSheet.Orientation = 10243
Else
ThisApplication.ActiveDocument.ActiveSheet.Orientation = 10242
End If
ThisApplication.ActiveView.Fit


If Vyber_formatu = "Oram A0" Then
ActiveSheet.ChangeSize("A0", MoveBorderItems := True)
ActiveSheet.Border = "Oram A0"

ElseIf Vyber_formatu = "Oram A1" ThenActiveSheet.ChangeSize("A1", MoveBorderItems := True)
ActiveSheet.Border = "Oram A1"

ElseIf Vyber_formatu = "Oram A2" ThenActiveSheet.ChangeSize("A2", MoveBorderItems := True)
ActiveSheet.Border = "Oram A2"

ElseIf Vyber_formatu = "Oram A3" ThenActiveSheet.ChangeSize("A3", MoveBorderItems := True)
ActiveSheet.Border = "Oram A3"


ElseIf Vyber_formatu = "Oram A4" ThenActiveSheet.ChangeSize("A4", MoveBorderItems := True)
ActiveSheet.Border = "Oram A4"

End If[/code]Problem nastava teraz pri formate A4 pri ktorom mi to vyhodi chybu:Nesprávny parameter. (Exception from HRESULT: 0x80070057 (E_INVALIDARG))Edit: Pouzil som cely Vas kod a funguje to lepsie takze dakujem!

DM12017-03-05 23:11:59