Pakeiskite objekto dydį į diapazono dydį VBA
Galite nustatyti tokio dydžio objektą kaip Paveikslėliai, Automatinės formos ir Diagramos. Norėdami tai padaryti, nustatykite objektus .Left .Top .Width ir .Height savybės, lygios atitinkamoms diapazono savybėms.
Toliau pateiktame pavyzdyje diagramos dydis yra B2: D6

Tam naudojamas VBA kodas:
Sub SizeChart2Range () Dim MyChart kaip Diagrama Dim MyRange As Range Nustatykite MyChart = ActiveSheet.ChartObjects (1). Diagramų rinkinys MyRange = Sheet1.Range ("B2: D6") Su MyChart.Parent .Left = MyRange.Left .Top = MyRange. .Top .Width = MyRange.Width .Height = MyRange.Height End With End Sub