Tag: 字体

如何设置没有HSSFWorkbook实例的单元格样式？

我想在电子表格粗体中设置标题行的字体。 我能够在我的主要function，以下面的代码做到这一点： HSSFWorkbook workbook = new HSSFWorkbook(); HSSFSheet dataSheet = workbook.createSheet("Data"); HSSFCellStyle fontStyle = workbook.createCellStyle(); HSSFFont font = workbook.createFont(); font.setBold(true); fontStyle.setFont(font); Row row = dataSheet.createRow(0); Cell cell = row.createCell(0); cell.setCellStyle(fontStyle); cell.setCellValue("ID"); 由于createCellStyle是HSSFWorkbook的方法，如果我通过调用一个带有工作表而不是工作簿的函数来写入表单，我该如何设置单元格样式？ public class SummaryXlsCreator { public static void main(String[] args) { HSSFWorkbook workbook = new HSSFWorkbook(); HSSFSheet dataSheet = workbook.createSheet("Data"); writeCDMarker(dataSheet); } public static […]

基于当前字体颜色在两种字体颜色（或个案）之间切换的VBA代码

我想写一个macros，这将允许我在字体颜色之间切换。 为了保持这个简单，只要说两种字体的颜色。 从黑到蓝或从蓝到黑。 但是，我想让excel告诉我的macros是否已经select了黑色或蓝色的字体（无论是在当前的单元格中，还是一般的）。 并从那里确定要更改的颜色。 因此，如果工具栏上的字体颜色select为黑色，则它将运行将字体更改为蓝色（通过运行下面的脚本的相应部分）。 如果工具栏上的字体颜色select为蓝色，则它将运行将字体更改为黑色（通过运行下面的脚本的相应部分）。 下面，我有用于将字体颜色更改为蓝色或黑色的代码。 这里的问题是我不知道正确的语法或代码，以确定工具栏（或单元格，如果这样做工具栏上是不可能的）当前选定的字体颜色。 确定字体颜色是macros的第一部分，这是我有麻烦。 感谢帮助！ Sub toggle() 'need code to determine font color, then to execute appropriate code below With Selection.font .ThemeColor = xlThemeColorAccent1 .TintAndShade = 0 End With Exit Sub blackpath: With Selection.font .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 End With End Sub

我可以使用“常规”格式更改单元格中特定数字的字体吗？

我只有数字的单元格。 它们没有格式化为数字或文本。 我发现Characters属性只适用于文本string。 有没有可能改变特定数字的颜色？ （无需将单元格数字格式更改为文本）。

GemBox Spreadsheet：一个单元格中的多种字体颜色

我使用GemBox Spreadsheet导出数据，我需要格式化单元格中的文本以获得多种颜色。 在Excel中这是可能的（在StackOverflow上find）： Dim fixedLength As Long fixedLength = Len("Employee") ActiveCell.FormulaR1C1 = "Employee Some Employee" With ActiveCell.Characters(Start:=fixedLength + 2, Length:=Len(ActiveCell) – FixedLength – 1).Font .Color = vbRed End With 然而，我可以在GemBox类中find的是设置Style.Font.Color属性，这将影响整个单元格。 例： for (int i = 0; i < tempArray.GetUpperBound(0); i++) { Color backColour = ColorTranslator.FromHtml(tempArray[i+1]); ws.Cells[row, col].Value += tempArray[i] + Environment.NewLine; ws.Cells[row, col].Style.Font.Color = backColour; […]

从Excel中复制文本并将其粘贴到PowerPoint中，然后格式化复制的文本

我是一个非常新的编写VB脚本。 我能够从Excel复制文本（或范围），并将其粘贴在PowerPoint中，我想改变字体大小（12），把一个边框，并将背景设置为白色。 以下是我必须从Excel复制文本： ' ~~~~~~~~~~~~~ Sub Copy_ExcelText_Powerpoint_and_Format() ' This copies a range in excel and copy it in Powerpoint, and then formats it Dim PPApp As Object ' As PowerPoint.Application ' Reference existing instance of PowerPoint Set PPApp = GetObject(, "Powerpoint.Application") Sheets("Sheet1").Range("J2:J4").copy PPApp.ActivePresentation.Slides(1).Shapes.PasteSpecial DataType:=10, Link:=0 ' now format the text ' ……. ' ~~~~~~~~~~~~~ 我发现一些脚本会改变活动幻灯片中所有文本的字体，但是我只想改变刚刚从Excel复制的文本的字体大小（等等）。 […]

使用VBA从Excel电子表格格式化Illustrator中的斜体

我在Illustrator中创build了一系列标签，在excel中使用VBA（excel工作表包含填充标签的信息），而且我无法find指定在Illustrator中显示的字体是否以斜体字显示的方式。 使用： .TextRange.CharacterAttributes.TextFont = appIll.TextFonts.Item("Arial") 借用与使用相同的结果： .TextRange.CharacterAttributes.TextFont = appIll.TextFonts.Item("Monotype Corsiva") 不用说，我也不能得到斜体。 我对此很新，但希望任何人知道如何指定字体和字体样式。 谢谢！ .TextRange.ParagraphAttributes.Justification = aiCenter .TextRange.CharacterAttributes.size = dblTopLine1FontSize .TextRange.CharacterAttributes.StrokeWeight = 0.35 .TextRange.CharacterAttributes.StrokeColor = clrStrokeColor .TextRange.CharacterAttributes.FillColor = clrFontFillColor SetItalics tfrmTopLine1 .CreateOutline End With

用Matlab混合文本颜色读出Excel单元格

我有麻烦读出包含混合颜色文本的Excel单元格的字体信息与Matlab使用ActiveX。 以单元格A1string“ GreenBlueRedBlack ”的excel文件作为示例，其中string的各个部分以指定的颜色显示。 MyExcel = actxserver('Excel.Application'); Workbook = MyExcel.Workbooks.Open('D:\data\Test.xlsx'); MySheet = MyExcel.ActiveWorkBook.Sheets.Item(1); Text=get(MySheet.Range('A1').Characters,'Text'); Color=MySheet.Range('A1').Characters.Font.Color; % provides NaN for m=1:size(Text,2) % read out letters seperately Color(m)=MySheet.Range('A1').Characters(m,1).Font.Color; end 代码当然提供NaN索引到整个单元格。 我无法find正确的子索引和循环通过单元格中的每个字母的方法。 如果我理解正确的话， Characters(x,y)应该被提供起始点和单元格想要的子部分的长度。 但是Characters(1,1)只返回NaN和Characters(2,1)以及Characters(1,2)超过matrix的尺寸。 如何subindexing到一个单元格的子string工作？ 谢谢。

为什么我的Excel Interop代码中的字体大小设置为？

我在我的代码中设置了一个范围的字体大小： var rowRngRptTitle = _xlSheet.Range[_xlSheet.Cells[2, 1], _xlSheet.Cells[2, 13]]; rowRngRptTitle.Merge(Type.Missing); rowRngRptTitle.Font.Size = 24; rowRngRptTitle.Font.Bold = true; rowRngRptTitle.Value2 = String.Format("Delivery Performance – {0} – {1}", _delPerfBeginDate.ToShortDateString(), _delPerfEndDate.ToShortDateString()); …但值不生效，或“粘” – 字体大小很小（看起来像10，与未configuration的范围相同）。 但是，如果稍后将其设置，在整个工作表编写后，通过创build一个新的范围： var rowRngRptTitle2 = _xlSheet.Range[_xlSheet.Cells[2, 1], _xlSheet.Cells[2, 13]]; rowRngRptTitle2.Merge(Type.Missing); rowRngRptTitle2.Font.Size = 24; rowRngRptTitle2.Font.Bold = true; …它的作品 – 字体大小确实是24而不是10。 什么可以取消早期设置的大小？ 在引用该范围的整个代码中没有其他的“Font.Size =”。 在一些更多的情况下，这里是代码（不必要的effluvia消除）： private void PopulateSheet(string shortName) { […]

如果我从文本框中复制文本，那么当我粘贴它的字体更改

我有一个excel用户表单的问题。 在用户表单中我有一个textbox2，该值是一些combobox的结果。 然后我从属性中更改了textbox2的格式字体，这是工作时，我有结果文本框2显示正确的字体，但如果我复制它与CTRL + C和尝试粘贴在Excel或Outlook邮件中的字体更改calibri …为什么会这样呢？ 我也试过自动copytoclipboard我会粘贴代码。 Dim clipboard As MSForms.DataObject Set clipboard = New MSForms.DataObject clipboard.SetText Me.TextBox2.Text clipboard.PutInClipboard 这是有效的，因为如果我按CTRL + V它粘贴结果在textbox2反正它改变字体格式… 提前致谢！ PS：我更喜欢find一个解决scheme，允许我手动从textbox2复制字体格式，但如果这是不可能的代码解决scheme也将罚款。 非常感谢！

字体和alignment脚本不能运行

我有一个电子表格，有多个设备上的多个人input的信息和不同的字体设置。 我想要一个简单的脚本来改变电子表格的所有页面，（3testing，但实际上原来是5页）。 最好在任何编辑，但是当你在页面内切换页面的时候会没事的。 以下是电子表格的链接： – https://docs.google.com/spreadsheets/d/1hUSgX4Teg71sgI6AUlxgY7HCatUTAszP3M4f6o_eyMU/edit?usp=sharing 我的脚本如下： – function onOpen() { var ss = SpreadsheetApp.getActiveSpreadsheet(); var sheet = ss.getSheets(); var cell = sheet.getRange("C6:P26"); cell.setFontSize(12); cell.setHorizontalAlignment("center"); } 我也试过onEdit，但仍然无法正常工作，但debugging器不会抛出错误只是不运行。 不确定是否是范围选项，因为它不会在每张纸上select正确的区域，我应该每张纸打1张？