Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Centering and warping text
For my headers on a report I am creating, I need to be able to center
justification and wrap the text. How do I do that in association with this code or before the code. ActiveCell.Offset(0, 0).Value = "Date" Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Centering and warping text
Worksheets("Sheet1").Range("B2").Value = _
"This text should wrap in a cell." Worksheets("Sheet1").Range("B2").WrapText = True Worksheets("Sheet1").Range("B2").HorizontalAlignme nt = xlCenter "Nils Titley" wrote: For my headers on a report I am creating, I need to be able to center justification and wrap the text. How do I do that in association with this code or before the code. ActiveCell.Offset(0, 0).Value = "Date" Thanks |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Centering and warping text
I appreciate your suggestion but I am not working with Worksheets or Ranges.
Workbooks and ActiveCell. Isn't there another way to do what I need to do? Thanks "JLGWhiz" wrote: Worksheets("Sheet1").Range("B2").Value = _ "This text should wrap in a cell." Worksheets("Sheet1").Range("B2").WrapText = True Worksheets("Sheet1").Range("B2").HorizontalAlignme nt = xlCenter "Nils Titley" wrote: For my headers on a report I am creating, I need to be able to center justification and wrap the text. How do I do that in association with this code or before the code. ActiveCell.Offset(0, 0).Value = "Date" Thanks |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Centering and warping text
On Mar 20, 2:36*pm, Nils Titley
wrote: I appreciate your suggestion but I am not working with Worksheets or Ranges. * Workbooks and ActiveCell. Isn't there another way to do what I need to do? Thanks "JLGWhiz" wrote: Worksheets("Sheet1").Range("B2").Value = _ * * "This text should wrap in a cell." Worksheets("Sheet1").Range("B2").WrapText = True Worksheets("Sheet1").Range("B2").HorizontalAlignme nt = xlCenter "Nils Titley" wrote: For my headers on a report I am creating, I need to be able to center justification and wrap the text. *How do I do that in association with this code or before the code. * * * * ActiveCell.Offset(0, 0).Value = "Date" Thanks- Hide quoted text - - Show quoted text - Isn't the technique the same? Does something like this work?: Worksheets(ActiveWorkbook).Range(ActiveCell).Horiz ontalAlignment = xlCenter Chris |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Centering and warping text
If you are working in Excel, it is pretty hard to not work with worksheets
and ranges, unless you are doing charts. <g That said, here is some different syntax that you might be more comfortable with. ActiveWorkbook.ActiveCell.HorizontalAlignment = xlCenter ActiveWorkbook.Selection.WrapText = True "Nils Titley" wrote: I appreciate your suggestion but I am not working with Worksheets or Ranges. Workbooks and ActiveCell. Isn't there another way to do what I need to do? Thanks "JLGWhiz" wrote: Worksheets("Sheet1").Range("B2").Value = _ "This text should wrap in a cell." Worksheets("Sheet1").Range("B2").WrapText = True Worksheets("Sheet1").Range("B2").HorizontalAlignme nt = xlCenter "Nils Titley" wrote: For my headers on a report I am creating, I need to be able to center justification and wrap the text. How do I do that in association with this code or before the code. ActiveCell.Offset(0, 0).Value = "Date" Thanks |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Centering and warping text
You can also set these attributes manually in Excel on the Format menu. Just
click FormatAlignment then check wrap text and select your alignment in the drop down box and click OK. You don't need code for this unless you are building the sheet format entirely through code. "Nils Titley" wrote: I appreciate your suggestion but I am not working with Worksheets or Ranges. Workbooks and ActiveCell. Isn't there another way to do what I need to do? Thanks "JLGWhiz" wrote: Worksheets("Sheet1").Range("B2").Value = _ "This text should wrap in a cell." Worksheets("Sheet1").Range("B2").WrapText = True Worksheets("Sheet1").Range("B2").HorizontalAlignme nt = xlCenter "Nils Titley" wrote: For my headers on a report I am creating, I need to be able to center justification and wrap the text. How do I do that in association with this code or before the code. ActiveCell.Offset(0, 0).Value = "Date" Thanks |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Centering and warping text
I am a programmer but I have done mostly C, ADA etc with Simulators. I am
helpinig a friend build a macro to process data so I am learning what I need to know to do what he needs so I am not up to speed. What cht13er suggested worked and I will try your suggestion. Thanks for the help "JLGWhiz" wrote: You can also set these attributes manually in Excel on the Format menu. Just click FormatAlignment then check wrap text and select your alignment in the drop down box and click OK. You don't need code for this unless you are building the sheet format entirely through code. "Nils Titley" wrote: I appreciate your suggestion but I am not working with Worksheets or Ranges. Workbooks and ActiveCell. Isn't there another way to do what I need to do? Thanks "JLGWhiz" wrote: Worksheets("Sheet1").Range("B2").Value = _ "This text should wrap in a cell." Worksheets("Sheet1").Range("B2").WrapText = True Worksheets("Sheet1").Range("B2").HorizontalAlignme nt = xlCenter "Nils Titley" wrote: For my headers on a report I am creating, I need to be able to center justification and wrap the text. How do I do that in association with this code or before the code. ActiveCell.Offset(0, 0).Value = "Date" Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
text centering | Excel Programming | |||
Centering Text Not Working | Excel Programming | |||
Centering MsgBox text | Excel Programming | |||
Centering the text in a message box | Excel Programming | |||
Centering the text in a message box | Excel Programming |