Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Place rectangle and define its height?
I Have a rectangle I want to place at a location and set it's height.
To do that, I have "top" and "bottom" named ranges. Here are specifications and what I tried: 'RAPP_REC_CASHFLOW = Rectangle name 'RAPP_TOP = Top of rectangle (= named range B2:G2) 'RAPP_BOTT = Bottom of rectangle (= named range B16:G16) Tried with this, silly old me:-) : Dim rng As Range Set rng = Application.Union(Range("RAPP_TOP"), Range("RAPP_BOTT")) Let ActiveSheet.Shapes("RAPP_REC_CASHFLOW").Top = Range("RAPP_TOP").Top Let ActiveSheet.Shapes("RAPP_REC_CASHFLOW").Height = rng.Height rng.Height make just one row of height ... Any out there who can help? kind regards tskogstrom |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Place rectangle and define its height?
Dim rng As Range
Set rng = Application.Union(Range("RAPP_TOP"), Range("RAPP_BOTT")) With ActiveSheet.Shapes("RAPP_REC_CASHFLOW") .Top = rng.Top .Height = Range("RAPP_BOTT").Top - Range("RAPP_TOP").Top .Left = rng.Left End With -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "tskogstrom" wrote in message oups.com... I Have a rectangle I want to place at a location and set it's height. To do that, I have "top" and "bottom" named ranges. Here are specifications and what I tried: 'RAPP_REC_CASHFLOW = Rectangle name 'RAPP_TOP = Top of rectangle (= named range B2:G2) 'RAPP_BOTT = Bottom of rectangle (= named range B16:G16) Tried with this, silly old me:-) : Dim rng As Range Set rng = Application.Union(Range("RAPP_TOP"), Range("RAPP_BOTT")) Let ActiveSheet.Shapes("RAPP_REC_CASHFLOW").Top = Range("RAPP_TOP").Top Let ActiveSheet.Shapes("RAPP_REC_CASHFLOW").Height = rng.Height rng.Height make just one row of height ... Any out there who can help? kind regards tskogstrom |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Place rectangle and define its height?
Think you want to use Range instead of Union. See the difference between
these 2 values : Dim rng As Range Set rng = Union(Range("A1"), Range("C3")) MsgBox rng.Height Set rng = Range(Range("A1"), Range("C3")) MsgBox rng.Height NickHK P.S. Whilst not wrong, use of "Let" is largely ignored nowadays, as it is optional. "Set" is required though. "tskogstrom" wrote in message oups.com... I Have a rectangle I want to place at a location and set it's height. To do that, I have "top" and "bottom" named ranges. Here are specifications and what I tried: 'RAPP_REC_CASHFLOW = Rectangle name 'RAPP_TOP = Top of rectangle (= named range B2:G2) 'RAPP_BOTT = Bottom of rectangle (= named range B16:G16) Tried with this, silly old me:-) : Dim rng As Range Set rng = Application.Union(Range("RAPP_TOP"), Range("RAPP_BOTT")) Let ActiveSheet.Shapes("RAPP_REC_CASHFLOW").Top = Range("RAPP_TOP").Top Let ActiveSheet.Shapes("RAPP_REC_CASHFLOW").Height = rng.Height rng.Height make just one row of height ... Any out there who can help? kind regards tskogstrom |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Place rectangle and define its height?
You were right, Nick
It is Range(rage1, range2) method I tried to find. Regards tskogstrom NickHK skrev: Think you want to use Range instead of Union. See the difference between these 2 values : Dim rng As Range Set rng = Union(Range("A1"), Range("C3")) MsgBox rng.Height Set rng = Range(Range("A1"), Range("C3")) MsgBox rng.Height NickHK P.S. Whilst not wrong, use of "Let" is largely ignored nowadays, as it is optional. "Set" is required though. "tskogstrom" wrote in message oups.com... I Have a rectangle I want to place at a location and set it's height. To do that, I have "top" and "bottom" named ranges. Here are specifications and what I tried: 'RAPP_REC_CASHFLOW = Rectangle name 'RAPP_TOP = Top of rectangle (= named range B2:G2) 'RAPP_BOTT = Bottom of rectangle (= named range B16:G16) Tried with this, silly old me:-) : Dim rng As Range Set rng = Application.Union(Range("RAPP_TOP"), Range("RAPP_BOTT")) Let ActiveSheet.Shapes("RAPP_REC_CASHFLOW").Top = Range("RAPP_TOP").Top Let ActiveSheet.Shapes("RAPP_REC_CASHFLOW").Height = rng.Height rng.Height make just one row of height ... Any out there who can help? kind regards tskogstrom |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Set a minimum row height a the same time with autofit row height | New Users to Excel | |||
Row Height stopped growing and Auot-Fit Row Height does not work | Excel Discussion (Misc queries) | |||
Rectangle Box | Excel Worksheet Functions | |||
How to place a colored rectangle BEHIND some data cells? | New Users to Excel | |||
Resizing row height to dynamically fit height of text box | Excel Discussion (Misc queries) |