Dobrý den.Jak se ve VBA dá změnit vzhled ? Konkrétně styl osvětlení nebo styl zobrazení.Dokážu zjistit jaký je aktuálně zapnutý styl osvětlení, měnit v něm různá nastavení, ale nevím jak jej přepnout na jiný.Děkuji

Styl zobrazení je jednodušší:[CODE]Dim oView As View = ThisApplication.ActiveViewoView.DisplayMode = DisplayModeEnum.kTechnicalIllustrationRendering ' kShadedWithEdgesRenderingoView.Update[/CODE]Styl osvětlení musíte jen správně přetypovat podle typu dokumentu - např.:[CODE]Dim doc As Documentdoc = ThisApplication.ActiveDocumentDim lstyle As LightingStyleIf doc.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then  Dim oAssy As AssemblyDocument  oAssy = doc  lstyle = oAssy.LightingStyles.Item("Mřížkované světlo") oAssy.ActiveLightingStyle = lstyle Else If doc.DocumentType = DocumentTypeEnum.kPartDocumentObject Then Dim oPart As PartDocument  oPart = doc  lstyle = oPart.LightingStyles.Item("Mřížkované světlo") oPart.ActiveLightingStyle = lstyle End If[/CODE]

Super, funguje !Trochu jsem to zjednodušil, stačí tři řádky kódu:Dim lStyle As LightingStyleSet lStyle = ThisApplication.ActiveDocument.LightingStyles.Item("Dvě světla")ThisApplication.ActiveDocument.ActiveLightingStyle = lStyleDěkuji.

Pokud nevadí případné selhání v jiném typu dokumentu (např. výkres) a pokud to má být jen pro VBA (ne iLogic), pak určitě stačí - možná by šlo dokonce sloučit do jednoho.