Private Sub PaintFormatToPicture(ByRef oILSRef As InlineShape, oILSTarget As InlineShape) InlineShapes(i).Type = wdInlineShapePicture ThenĬall PaintFormatToPicture(oMaster. Private Sub PaintReferencePictureFormatToTargetPicture(ByRef oILSRef As InlineShape, oILSTarget As InlineShape)Ĭall MsgBox("No Inline Shape Selected", vbCritical + vbOKOnly, "Apply Formatting to Other Pictures") If ActiveDocument.InlineShapes(i).Type = wdInlineShapePicture ThenĬall PaintReferencePictureFormatToTargetPicture(oMaster, ActiveDocument.InlineShapes(i)) Set oMaster = ActiveDocument.InlineShapes(1)įor i = 2 To If anyone uses this process and find a flaw, then please let me know. I'm a one man show so the results are only valid for the limited testing I've done. Apply all sorts of formatting and execute the code. (i).EffectParameters(j).Value = (i).EffectParameters(j).Value 'Debug.Print (i).EffectParameters(j).Name & " " & (i).EffectParameters(j).Value (i)įor j = 1 To (i).EffectParameters.Count 'Apply picture effects of source ILS to target ILSįor i = 1 To 'Clear all picture effects in the target shape.įor i = To 1 Step -1 This grabs most of the attributes (e.g., border, shadow, soften, etc.) Set oILS1 = ActiveDocument.Sections(2).Range.InlineShapes(1) Sub PaintReferencePictureFormatToTargetPicture(ByRef oILSRef As InlineShape, oILSTarget As InlineShape) PaintReferencePictureFormatToTargetPicture ActiveDocument.InlineShapes(1), ActiveDocument.InlineShapes(2) The other day I cried "Eureka" when I discovered (or thought I did) that just simply selecting the reference image and copying the formatting "Selection.CopyFormatting" and then selecting the target image and pasting the formatting "Selection.PasterFormatting" did the job.Įarlier today I learned that that process handled most of the attributes (e.g., borders, shadow, softedge, etc.) it missed some of the more advanced attributres like artistic effect, sharpness, color tone, etc.Īfter much whailing and gnashing of teeth, I think I have now found a solution: For lack of something better to do, I've spent the last few days working on a template add-in for Word that would faithfully copy and apply the formatting of one reference image to a target image. I've seen several questions in the past about working with the picture formatting tools in Word 2007/2010. So in the example, we can see that the blue background, white font, and currency formatting has been copied to cells D3:D6.This isn't a question and I hope I'm not breaking a rule by just posting a solution to my own problem. The formatting that has been copied will include number formatting, alignment, font, border, and patterns. When you let go of the left mouse button, you will see that the formatting from cell A3 has been copied to the selected range (D3:D6). For example, if you want to change the format of a cell which has font size as 11 and font type in CALIBRI (Body).
#FORMAT PAINTER IN POWERPOINT FOR MAC FULL#
This is done by selecting cell D3 with the left mouse button and then dragging down (while holding the left mouse button) until the full range has been selected. Format Painter in Excel is used to change a string or cell content format with the same format of previously copied format. In this example, we have selected cells D3 to D6. Now, select the cells that you wish to apply the copied format to. Then select the Format Painter button in the standard toolbar at the top of the screen.Ĭell A3 should become highlighted with an animated border around it and you will see the following message appear in the status bar at the bottom of the Excel window: "Use the mouse to apply the copied format to another object". In this example, we have selected cell A3.
#FORMAT PAINTER IN POWERPOINT FOR MAC HOW TO#
Let's look at an example of how to use the Format Painter in Excel 2011.įirst, select the cell that has the formatting that you wish to copy. It is a quick and easy way to apply your existing formatting without having to manually set up the the number formatting, alignment, font, border, and patterns for the cells. The Format Painter allows you to copy formatting from a cell (or group of cells) to another section of the Excel spreadsheet.
0 kommentar(er)
