Redimensionați obiectul la dimensiunea intervalului în VBA
Puteți dimensiona un obiect precum Imagini, Forme automate și Diagramele pentru a avea aceeași dimensiune ca un interval. Pentru a face acest lucru, setați obiectele .Left .Top .Width și .Height proprietăți egale cu proprietățile respective ale unui Range.
Următorul exemplu măsoară un grafic pentru gama B2: D6
Codul VBA folosit pentru a realiza acest lucru:
Sub SizeChart2Range () Dim MyChart as Char Dim Dim MyRange as Range Set MyChart = ActiveSheet.ChartObjects (1) .Chart Set MyRange = Sheet1.Range ("B2: D6") With MyChart.Parent .Left = MyRange.Left .Top = MyRange .Top .Width = MyRange.Width .Height = MyRange.Height End With End Sub
