HomeProgram

How to Make a Tartan Heart Image in Excel

Part 1 of 4:

Preparation

  1. Open a new Excel worksheet by opening the Excel application from the dock or Applications folder.
    1. Set Preferences: In General - Set Use R1C1 reference style to checked or On.
    2. Set column 1 to Format Column Width .5" and Format Row Height .25"
    3. Select Rows 2:200 and set Format Row Height to .06" (but see Tips).
    4. Select Columns 2:512 and set Format Column Width to .03" (but see Tips).
    5. Read through these steps and tips entirely before actually setting to work -- there's a time-consuming route (given first) and an easier way (via making a copy of the given macro) that will save a lot of time and effort! But to create your own tartan's pattern, you must be familiar with the concepts conveyed in the first part, starting with this next step:
  2. How to Make a Tartan Heart Image in Excel Picture 1
    Obtain the actual tartan and, probably with the aid of a magnifying glass, write down the color and number of the threads across in columns and do the same down in rows. Be exact as you possibly can be, it's important in achieving the exact effect of really replicating the tartan, precisely. Here's a picture of a tartan closeup which had its threads counted.
Part 2 of 4:

Create the Onscreen Tartan Pattern

  1. Begin in column 2. Select the column. Make the color match the tartan's beginning thread color. Use the Color Wheel. Format Cells Fill the column (or to a designated row# stopping point) with the color.
  2. Then do row 2, selecting the row, and make the color match as closely as possible to the tartan's actual thread color. Use the Color Wheel. Format Cells Fill the row (or to a designated column# stopping point) with the color.
  3. Then do column 3, then row 3, then column 4, then row 4, etc., etc. continuing over and under this way until you've filled the screen with the full image of the tartan! Be patient with yourself and do the job right, although it may take you hours, or even days to finish. Working with the macros, however, takes much less time in the end.
Part 3 of 4:

Create the Shape-Filled Pattern

  1. Use the Grab application or do Copy Picture by using the Shift Key with Edit Copy and then do Paste Picture to a new worksheet by using the Shift Key again. Then, whether you used the Grab app, or Paste Picture, do Command+v, copy.
  2. Open the application Preview and do File, New from Clipboard.
  3. Export the file to the Desktop or into a new "Tartans XL Work" folder as a JPG file or PNG file format file and name the file "My XL Tartan Picture".
  4. Quit Preview.
  5. Click on Excel to activate it as the active application and choose the Media Tools icon along the very top of all the Tool Bars -- it has two tied piano notes in front and to the right of some images as its icon.
  6. Select from within the Media Tools window, Shapes, and select the Heart Shape, or whatever shape you'd like your tartan to be within.
  7. Click on a blank portion of the Excel worksheet, and a small heart (or the shape you've chosen) will appear.
  8. Re-size it as you prefer -- about 3" by 3" on the screen is probably about right.
  9. Do Format Shape Fill Picture and then choose the file, My XL Tartan Picture.jpg, to use as fill.
  10. How to Make a Tartan Heart Image in Excel Picture 2
    Your image should resemble this one:
  11. Done! Well worth it, eh?
  12. Here is the macro code to create the tartan. You use Advanced Editing to copy All the code to Word and do a Replace All of "#* " with nothing, and the code will result, which you can then paste into over a Visual Basic dummy macro you recorded that was meaningless. Read on first, however.
    1. Note: In Sub Macro2(), at the end, there are some Directory path names in code lines which need to be changed to match your computer, please. You can find out what these are by recording a macro to save a file into the folder where you plan to save the tartan work and tartan macro.
    2. It is suggested that you make a text copy of any modifications you make to the macro and store them in a Word file to the same folder, for example if you modify the code to make a different tartan than the Anderson tartan.
    3. Remember, you can always broaden the columns and row heights to get a better look at what's what in terms of thread count relative to the vertical looping down the rows in Sub Macro3().
  13. OK. Before you can access the Visual Basic Editor, you'll need to go to Excel Preferences and set the Ribbon to checked for Developer. Then Developer will appear on your Ribbon and when you click on it, you'll see the Record icon button.
  14. When you record the dummy macro, e.g. Macro1 say, before its end, perhaps overwriting the dummy recorded code, type in Macro2. That will call this Macro2 below, which you've copied in and pasted below Macro1. You therefore can RUN either Macro2 or Macro1 and accomplish the same effect -- completion of the tartan! :D
Part 4 of 4:

The Tartan Macro Code

    1. Sub Macro2()
    2. ' Macro2 Macro
    3. 'Anderson Tartan Columns - Left to right
    4. Application.ScreenUpdating = True
    5. Workbooks.Add
    6. Range("B:SQ").Select
    7. Selection.ColumnWidth = 1.5
    8. Range("B1:O376").Select
    9. Range("B1:O376").Interior.Color = RGB(100, 149, 237)
    10. Range("P1:U376").Select
    11. Range("P1:U376").Interior.Color = RGB(0, 0, 0)
    12. Range("V1:AA376").Select
    13. Range("V1:AA376").Interior.Color = RGB(190, 190, 190)
    14. Range("AB1:AE376").Select
    15. Range("AB1:AE376").Interior.Color = RGB(0, 0, 0)
    16. Range("AF1:AI376").Select
    17. Range("AF1:AI376").Interior.Color = RGB(255, 255, 0)
    18. Range("AJ1:AM376").Select
    19. Range("AJ1:AM376").Interior.Color = RGB(0, 0, 0)
    20. Range("AN1:AQ376").Select
    21. Range("AN1:AQ376").Interior.Color = RGB(255, 255, 0)
    22. Range("AR1:AW376").Select
    23. Range("AR1:AW376").Interior.Color = RGB(0, 0, 0)
    24. Range("AX1:BA376").Select
    25. Range("AX1:BA376").Interior.Color = RGB(255, 0, 0)
    26. Range("BB1:BG376").Select
    27. Range("BB1:BG376").Interior.Color = RGB(0, 0, 255)
    28. Range("BH1:BI376").Select
    29. Range("BH1:BI376").Interior.Color = RGB(255, 0, 0)
    30. Range("BJ1:BQ376").Select
    31. Range("BJ1:BQ376").Interior.Color = RGB(46, 139, 87)
    32. Range("BR1:BT376").Select
    33. Range("BR1:BT376").Interior.Color = RGB(255, 0, 0)
    34. Range("BU1:CB376").Select
    35. Range("BU1:CB376").Interior.Color = RGB(46, 139, 87)
    36. Range("CC1:CF376").Select
    37. Range("CC1:CF376").Interior.Color = RGB(255, 0, 0)
    38. Range("CG1:CN376").Select
    39. Range("CG1:CN376").Interior.Color = RGB(46, 139, 87)
    40. Range("CO1:CR376").Select
    41. Range("CO1:CR376").Interior.Color = RGB(255, 0, 0)
    42. Range("CS1:CZ376").Select
    43. Range("CS1:CZ376").Interior.Color = RGB(46, 139, 87)
    44. Range("DA1:DB376").Select
    45. Range("DA1:DB376").Interior.Color = RGB(255, 0, 0)
    46. Range("DC1:DH376").Select
    47. Range("DC1:DH376").Interior.Color = RGB(0, 0, 255)
    48. Range("DI1:DL376").Select
    49. Range("DI1:DL376").Interior.Color = RGB(255, 0, 0)
    50. Range("DM1:DP376").Select
    51. Range("DM1:DP376").Interior.Color = RGB(0, 0, 0)
    52. Range("DQ1:DT376").Select
    53. Range("DQ1:DT376").Interior.Color = RGB(255, 255, 0)
    54. Range("DU1:DX376").Select
    55. Range("DU1:DX376").Interior.Color = RGB(0, 0, 0)
    56. Range("DY1:EB376").Select
    57. Range("DY1:EB376").Interior.Color = RGB(255, 255, 0)
    58. Range("EC1:EF376").Select
    59. Range("EC1:EF376").Interior.Color = RGB(0, 0, 0)
    60. Range("EG1:EL376").Select
    61. Range("EG1:EL376").Interior.Color = RGB(190, 190, 190)
    62. Range("EM1:ER376").Select
    63. Range("EM1:ER376").Interior.Color = RGB(0, 0, 0)
    64. Range("ES1:FF376").Select
    65. Range("ES1:FF376").Interior.Color = RGB(100, 149, 237)
    66. Range("FG1:FG376").Select
    67. Range("FG1:FG376").Interior.Color = RGB(255, 0, 0)
    68. Range("FH1:FK376").Select
    69. Range("FH1:FK376").Interior.Color = RGB(0, 0, 0)
    70. Range("FL1:FL376").Select
    71. Range("FL1:FL376").Interior.Color = RGB(255, 0, 0)
    72. Range("FM1:FR376").Select
    73. Range("FM1:FR376").Interior.Color = RGB(100, 149, 237)
    74. Range("FS1:FX376").Select
    75. Range("FS1:FX376").Interior.Color = RGB(255, 0, 0)
    76. Range("FY1:GD376").Select
    77. Range("FY1:GD376").Interior.Color = RGB(100, 149, 237)
    78. Range("GE1:GE376").Select
    79. Range("GE1:GE376").Interior.Color = RGB(255, 0, 0)
    80. Range("GF1:GI376").Select
    81. Range("GF1:GI376").Interior.Color = RGB(0, 0, 0)
    82. Range("GJ1:GJ376").Select
    83. Range("GJ1:GJ376").Interior.Color = RGB(255, 0, 0)
    84. Range("GK1:GX376").Select
    85. Range("GK1:GX376").Interior.Color = RGB(100, 149, 237)
    86. Range("GY1:HB376").Select
    87. Range("GY1:HB376").Interior.Color = RGB(0, 0, 0)
    88. Range("HC1:HH376").Select
    89. Range("HC1:HH376").Interior.Color = RGB(190, 190, 190)
    90. Range("HI1:HL376").Select
    91. Range("HI1:HL376").Interior.Color = RGB(0, 0, 0)
    92. Range("HM1:HP376").Select
    93. Range("HM1:HP376").Interior.Color = RGB(255, 255, 0)
    94. Range("HQ1:HT376").Select
    95. Range("HQ1:HT376").Interior.Color = RGB(0, 0, 0)
    96. Range("HU1:HX376").Select
    97. Range("HU1:HX376").Interior.Color = RGB(255, 255, 0)
    98. Range("HY1:ID376").Select
    99. Range("HY1:ID376").Interior.Color = RGB(0, 0, 0)
    100. Range("IE1:IH376").Select
    101. Range("IE1:IH376").Interior.Color = RGB(255, 0, 0)
    102. Range("II1:IN376").Select
    103. Range("II1:IN376").Interior.Color = RGB(0, 0, 255)
    104. Range("IO1:IP376").Select
    105. Range("IO1:IP376").Interior.Color = RGB(255, 0, 0)
    106. Range("IQ1:IV376").Select
    107. Range("IQ1:IV376").Interior.Color = RGB(46, 139, 87)
    108. Range("IW1:JJ376").Select
    109. Range("IW1:JJ376").Interior.Color = RGB(100, 149, 237)
    110. Range("JK1:JP376").Select
    111. Range("JK1:JP376").Interior.Color = RGB(0, 0, 0)
    112. Range("JQ1:JV376").Select
    113. Range("JQ1:JV376").Interior.Color = RGB(190, 190, 190)
    114. Range("JW1:JZ376").Select
    115. Range("JW1:JZ376").Interior.Color = RGB(0, 0, 0)
    116. Range("KA1:KD376").Select
    117. Range("KA1:KD376").Interior.Color = RGB(255, 255, 0)
    118. Range("KE1:KH376").Select
    119. Range("KE1:KH376").Interior.Color = RGB(0, 0, 0)
    120. Range("KI1:KL376").Select
    121. Range("KI1:KL376").Interior.Color = RGB(255, 255, 0)
    122. Range("KM1:KR376").Select
    123. Range("KM1:KR376").Interior.Color = RGB(0, 0, 0)
    124. Range("KS1:KV376").Select
    125. Range("KS1:KV376").Interior.Color = RGB(255, 0, 0)
    126. Range("KW1:LB376").Select
    127. Range("KW1:LB376").Interior.Color = RGB(0, 0, 255)
    128. Range("LC1:LD376").Select
    129. Range("LC1:LD376").Interior.Color = RGB(255, 0, 0)
    130. Range("LE1:LL376").Select
    131. Range("LE1:LL376").Interior.Color = RGB(46, 139, 87)
    132. Range("LM1:LO376").Select
    133. Range("LM1:LO376").Interior.Color = RGB(255, 0, 0)
    134. Range("LP1:LW376").Select
    135. Range("LP1:LW376").Interior.Color = RGB(46, 139, 87)
    136. Range("LX1:MA376").Select
    137. Range("LX1:MA376").Interior.Color = RGB(255, 0, 0)
    138. Range("MB1:MI376").Select
    139. Range("MB1:MI376").Interior.Color = RGB(46, 139, 87)
    140. Range("MJ1:MM376").Select
    141. Range("MJ1:MM376").Interior.Color = RGB(255, 0, 0)
    142. Range("MN1:MU376").Select
    143. Range("MN1:MU376").Interior.Color = RGB(46, 139, 87)
    144. Range("MV1:MW376").Select
    145. Range("MV1:MW376").Interior.Color = RGB(255, 0, 0)
    146. Range("MX1:NC376").Select
    147. Range("MX1:NC376").Interior.Color = RGB(0, 0, 255)
    148. Range("ND1:NG376").Select
    149. Range("ND1:NG376").Interior.Color = RGB(255, 0, 0)
    150. Range("NH1:NK376").Select
    151. Range("NH1:NK376").Interior.Color = RGB(0, 0, 0)
    152. Range("NL1:NO376").Select
    153. Range("NL1:NO376").Interior.Color = RGB(255, 255, 0)
    154. Range("NP1:NS376").Select
    155. Range("NP1:NS376").Interior.Color = RGB(0, 0, 0)
    156. Range("NT1:NW376").Select
    157. Range("NT1:NW376").Interior.Color = RGB(255, 255, 0)
    158. Range("NX1:OA376").Select
    159. Range("NX1:OA376").Interior.Color = RGB(0, 0, 0)
    160. Range("OB1:OG376").Select
    161. Range("OB1:OG376").Interior.Color = RGB(190, 190, 190)
    162. Range("OH1:OM376").Select
    163. Range("OH1:OM376").Interior.Color = RGB(0, 0, 0)
    164. Range("ON1:PA376").Select
    165. Range("ON1:PA376").Interior.Color = RGB(100, 149, 237)
    166. Range("PB1:PB376").Select
    167. Range("PB1:PB376").Interior.Color = RGB(255, 0, 0)
    168. Range("PC1:PF376").Select
    169. Range("PC1:PF376").Interior.Color = RGB(0, 0, 0)
    170. Range("PG1:PG376").Select
    171. Range("PG1:PG376").Interior.Color = RGB(255, 0, 0)
    172. Range("PH1:PM376").Select
    173. Range("PH1:PM376").Interior.Color = RGB(100, 149, 237)
    174. Range("PN1:PS376").Select
    175. Range("PN1:PS376").Interior.Color = RGB(255, 0, 0)
    176. Range("PT1:PY376").Select
    177. Range("PT1:PY376").Interior.Color = RGB(100, 149, 237)
    178. Range("PZ1:PZ376").Select
    179. Range("PZ1:PZ376").Interior.Color = RGB(255, 0, 0)
    180. Range("QA1:QD376").Select
    181. Range("QA1:QD376").Interior.Color = RGB(0, 0, 0)
    182. Range("QE1:QE376").Select
    183. Range("QE1:QE376").Interior.Color = RGB(255, 0, 0)
    184. Range("QF1:QS376").Select
    185. Range("QF1:QS376").Interior.Color = RGB(100, 149, 237)
    186. Range("QT1:QW376").Select
    187. Range("QT1:QW376").Interior.Color = RGB(0, 0, 0)
    188. Range("QX1:RC376").Select
    189. Range("QX1:RC376").Interior.Color = RGB(190, 190, 190)
    190. Range("RD1:RG376").Select
    191. Range("RD1:RG376").Interior.Color = RGB(0, 0, 0)
    192. Range("RH1:RK376").Select
    193. Range("RH1:RK376").Interior.Color = RGB(255, 255, 0)
    194. Range("RL1:RO376").Select
    195. Range("RL1:RO376").Interior.Color = RGB(0, 0, 0)
    196. Range("RP1:RS376").Select
    197. Range("RP1:RS376").Interior.Color = RGB(255, 255, 0)
    198. Range("RT1:RY376").Select
    199. Range("RT1:RY376").Interior.Color = RGB(0, 0, 0)
    200. Range("RZ1:SC376").Select
    201. Range("RZ1:SC376").Interior.Color = RGB(255, 0, 0)
    202. Range("SD1:SI376").Select
    203. Range("SD1:SI376").Interior.Color = RGB(0, 0, 255)
    204. Range("SJ1:SK376").Select
    205. Range("SJ1:SK376").Interior.Color = RGB(255, 0, 0)
    206. Range("SL1:SQ376").Select
    207. Range("SL1:SQ376").Interior.Color = RGB(46, 139, 87)
    208. ChDir _
    209. "Macintosh HD:Users:chrisgarthwaite:Documents:Excel ƒ: Hubs and SITES:wikiHow's:"
    210. Range("SL1:SQ376").Select
    211. ActiveWorkbook.SaveAs Filename:= _
    212. "Macintosh HD:Users:chrisgarthwaite:Documents:Excel ƒ:Tartan Work: Anderson Tartan Development.xlsx" _
    213. , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    214. Macro1_Vertical_Row_Sampler
    215. End Sub
    217. Sub Macro1_Vertical_Row_Sampler()
    218. '
    219. ' Macro1_Vertical_Row_Sampler Macro
    220. ' Vertical Row Sampler
    221. ' Top to bottom
    222. Range("A2").Select
    223. ActiveWorkbook.Names.Add Name:="Tartan_Vertical_StarterCell", RefersToR1C1 _
    224. :="=Sheet1!R2C1"
    225. Range("A1:A210").Select
    226. Selection.RowHeight = 18
    227. Range("A2:A10").Select
    228. Range("A2").Interior.Color = RGB(0, 0, 0)
    229. Range("A11:A16").Select
    230. Range("A11").Interior.Color = RGB(255, 0, 0)
    231. Range("A17:A23").Select
    232. Range("A17").Interior.Color = RGB(0, 0, 0)
    233. Range("A24:A29").Select
    234. Range("A24").Interior.Color = RGB(255, 0, 0)
    235. Range("A30:A36").Select
    236. Range("A30").Interior.Color = RGB(0, 0, 0)
    237. Range("A37:A38").Select
    238. Range("A37").Interior.Color = RGB(255, 0, 0)
    239. Range("A39:A42").Select
    240. Range("A39").Interior.Color = RGB(0, 0, 255)
    241. Range("A43:A44").Select
    242. Range("A43").Interior.Color = RGB(255, 0, 0)
    243. Range("A45:A48").Select
    244. Range("A45").Interior.Color = RGB(0, 0, 0)
    245. Range("A49").Select
    246. Range("A49").Interior.Color = RGB(255, 255, 0)
    247. Range("A50").Select
    248. Range("A50").Interior.Color = RGB(0, 0, 0)
    249. Range("A51").Select
    250. Range("A51").Interior.Color = RGB(255, 255, 0)
    251. Range("A52:A55").Select
    252. Range("A52").Interior.Color = RGB(0, 0, 0)
    253. Range("A56:A59").Select
    254. Range("A56").Interior.Color = RGB(224, 255, 255)
    255. Range("A60:A65").Select
    256. Range("A60").Interior.Color = RGB(0, 0, 0)
    257. Range("A66:A85").Select
    258. Range("A66").Interior.Color = RGB(0, 255, 255)
    259. Range("A86:A87").Select
    260. Range("A86").Interior.Color = RGB(255, 0, 0)
    261. Range("A88:A91").Select
    262. Range("A88").Interior.Color = RGB(0, 0, 0)
    263. Range("A92:A93").Select
    264. Range("A92").Interior.Color = RGB(255, 0, 0)
    265. Range("A94:A101").Select
    266. Range("A94").Interior.Color = RGB(0, 255, 255)
    267. Range("A102:A107").Select
    268. Range("A102").Interior.Color = RGB(255, 0, 0)
    269. Range("A108:A115").Select
    270. Range("A108").Interior.Color = RGB(0, 255, 255)
    271. Range("A116:A117").Select
    272. Range("A116").Interior.Color = RGB(255, 0, 0)
    273. Range("A118:A121").Select
    274. Range("A118").Interior.Color = RGB(0, 0, 0)
    275. Range("A122:A123").Select
    276. Range("A122").Interior.Color = RGB(255, 0, 0)
    277. Range("A124:A143").Select
    278. Range("A124").Interior.Color = RGB(0, 255, 255)
    279. Range("A144:A149").Select
    280. Range("A144").Interior.Color = RGB(0, 0, 0)
    281. Range("A150:A153").Select
    282. Range("A150").Interior.Color = RGB(224, 255, 255)
    283. Range("A154:A157").Select
    284. Range("A154").Interior.Color = RGB(0, 0, 0)
    285. Range("A158").Select
    286. Range("A158").Interior.Color = RGB(255, 255, 0)
    287. Range("A159").Select
    288. Range("A159").Interior.Color = RGB(0, 0, 0)
    289. Range("A160").Select
    290. Range("A160").Interior.Color = RGB(255, 255, 0)
    291. Range("A161:A164").Select
    292. Range("A161").Interior.Color = RGB(0, 0, 0)
    293. Range("A165:A166").Select
    294. Range("A165").Interior.Color = RGB(255, 0, 0)
    295. Range("A167:A170").Select
    296. Range("A167").Interior.Color = RGB(0, 0, 255)
    297. Range("A171:A172").Select
    298. Range("A171").Interior.Color = RGB(255, 0, 0)
    299. Range("A173:A179").Select
    300. Range("A173").Interior.Color = RGB(0, 0, 0)
    301. Range("A180:A185").Select
    302. Range("A180").Interior.Color = RGB(255, 0, 0)
    303. Range("A186:A192").Select
    304. Range("A186").Interior.Color = RGB(0, 0, 0)
    305. Range("A193:A198").Select
    306. Range("A193").Interior.Color = RGB(255, 0, 0)
    307. Range("A199:A205").Select
    308. Range("A199").Interior.Color = RGB(0, 0, 0)
    309. Range("A206").Select
    310. ActiveCell.FormulaR1C1 = "End"
    311. ActiveWorkbook.Save
    312. Application.ScreenUpdating = False
    313. Macro3
    314. End Sub
    315. Sub Macro3()
    316. ' Macro3 Macro
    317. Windows(" Anderson Tartan Development.xlsx").Activate
    318. Application.Goto Reference:="Tartan_Vertical_StarterCell"
    319. 'Make the first 9 rows black
    320. Macro6
    321. For X03 = 1 To 7
    322. Macro8
    323. Next
    324. 10 Application.CutCopyMode = False
    325. 'Make the next 6 rows red
    326. Macro7
    327. For X03 = 1 To 4
    328. Macro8
    329. Next
    330. 30 Application.CutCopyMode = False
    331. 'Make the next 7 rows black
    332. Macro7
    333. For X03 = 1 To 5
    334. Macro8
    335. Next
    336. 50 Application.CutCopyMode = False
    337. 'Make the next 6 rows red
    338. Macro6
    339. For X03 = 1 To 4
    340. Macro8
    341. Next
    342. 70 Application.CutCopyMode = False
    343. 'Make the next 7 rows black
    344. Macro6
    345. For X03 = 1 To 5
    346. Macro8
    347. Next
    348. 90 Application.CutCopyMode = False
    349. 'Make the next 2 rows red
    350. Macro6
    351. 100 Application.CutCopyMode = False
    352. 'Make the next 4 rows blue-purple�
    353. Macro6
    354. For X03 = 1 To 2
    355. Macro8
    356. Next
    357. 130 Application.CutCopyMode = False
    358. 'Make the next 2 rows red
    359. Macro6
    360. 140 Application.CutCopyMode = False
    361. 'Make the next 4 rows black
    362. Macro6
    363. For X03 = 1 To 2
    364. Macro8
    365. Next
    366. 170 Application.CutCopyMode = False
    367. 'Make the next SINGLE ROW yellow
    368. Selection.Copy
    369. ActiveCell.Offset(0, 1).Select
    370. ActiveSheet.Paste
    371. 180 For X01 = 1 To 255
    372. ActiveCell.Offset(0, 2).Select
    373. ActiveSheet.Paste
    374. Next
    375. ActiveCell.Offset(1, -511).Select
    376. 190 Application.CutCopyMode = False
    377. 'Make the next SINGLE ROW black
    378. Selection.Copy
    379. ActiveCell.Offset(0, 2).Select
    380. ActiveSheet.Paste
    381. 200 For X01 = 1 To 255
    382. ActiveCell.Offset(0, 2).Select
    383. ActiveSheet.Paste
    384. Next
    385. ActiveCell.Offset(1, -512).Select
    386. 210 Application.CutCopyMode = False
    387. 'Make the next SINGLE ROW yellow
    388. Selection.Copy
    389. ActiveCell.Offset(0, 1).Select
    390. ActiveSheet.Paste
    391. 220 For X01 = 1 To 255
    392. ActiveCell.Offset(0, 2).Select
    393. ActiveSheet.Paste
    394. Next
    395. ActiveCell.Offset(1, -511).Select
    396. 230 Application.CutCopyMode = False
    397. 'Make the next 4 rows black
    398. Macro6
    399. For X03 = 1 To 2
    400. Macro8
    401. Next
    402. 270 Application.CutCopyMode = False
    403. 'Make the next 4 rows white
    404. Macro7
    405. For X03 = 1 To 2
    406. Macro8
    407. Next
    408. 280 Application.CutCopyMode = False
    409. 'Make the next 6 rows black
    410. Macro6
    411. For X03 = 1 To 4
    412. Macro8
    413. Next
    414. 290 Application.CutCopyMode = False
    415. 'Make the next 20 rows blue-green
    416. Macro6
    417. For X03 = 1 To 18
    418. Macro8
    419. Next
    420. 310 Application.CutCopyMode = False
    421. 'Make the next 2 rows red
    422. Macro6
    423. 320 Application.CutCopyMode = False
    424. 'Make the next 4 rows black
    425. Macro6
    426. For X03 = 1 To 2
    427. Macro8
    428. Next
    429. 350 Application.CutCopyMode = False
    430. 'Make the next 2 rows red
    431. Macro6
    432. 360 Application.CutCopyMode = False
    433. 'Make the next 8 rows blue-green
    434. Macro6
    435. For X03 = 1 To 6
    436. Macro8
    437. Next
    438. 410 Application.CutCopyMode = False
    439. 'Make the next 6 rows red
    440. Macro6
    441. For X03 = 1 To 4
    442. Macro8
    443. Next
    444. 430 Application.CutCopyMode = False
    445. Macro6
    446. For X03 = 1 To 6
    447. Macro8
    448. Next
    449. 450 Application.CutCopyMode = False
    450. 'Make the next 2 rows red
    451. Macro6
    452. 470 Application.CutCopyMode = False
    453. 'Make the next 4 rows black
    454. Macro6
    455. For X03 = 1 To 2
    456. Macro8
    457. Next
    458. 490 Application.CutCopyMode = False
    459. 'Make the next 2 rows red
    460. Macro6
    461. 500 Application.CutCopyMode = False
    462. 'Make the next 20 rows blue-green
    463. Macro6
    464. For X03 = 1 To 18
    465. Macro8
    466. Next
    467. 530 Application.CutCopyMode = False
    468. 'Make the next 6 rows black
    469. Macro6
    470. For X03 = 1 To 4
    471. Macro8
    472. Next
    473. 550 Application.CutCopyMode = False
    474. 'Make the next 4 rows white
    475. Macro6
    476. For X03 = 1 To 2
    477. Macro8
    478. Next
    479. 570 Application.CutCopyMode = False
    480. 'Make the next 4 rows black
    481. Macro6
    482. For X03 = 1 To 2
    483. Macro8
    484. Next
    485. 590 Application.CutCopyMode = False
    486. 'Make the next SINGLE ROW yellow
    487. Selection.Copy
    488. 600 For X01 = 1 To 255
    489. ActiveCell.Offset(0, 2).Select
    490. ActiveSheet.Paste
    491. Next
    492. ActiveCell.Offset(1, -510).Select
    493. 610 Application.CutCopyMode = False
    494. 'Make the next SINGLE ROW black
    495. Selection.Copy
    496. ActiveCell.Offset(0, 1).Select
    497. ActiveSheet.Paste
    498. 620 For X01 = 1 To 255
    499. ActiveCell.Offset(0, 2).Select
    500. ActiveSheet.Paste
    501. Next
    502. ActiveCell.Offset(1, -511).Select
    503. 630 Application.CutCopyMode = False
    504. 'Make the next SINGLE ROW yellow
    505. Selection.Copy
    506. 640 For X01 = 1 To 255
    507. ActiveCell.Offset(0, 2).Select
    508. ActiveSheet.Paste
    509. Next
    510. ActiveCell.Offset(1, -510).Select
    511. 650 Application.CutCopyMode = False
    512. 'Make the next 4 rows black
    513. Macro7
    514. For X03 = 1 To 2
    515. Macro8
    516. Next
    517. 670 Application.CutCopyMode = False
    518. 'Make the next 2 rows red
    519. Macro6
    520. 690 Application.CutCopyMode = False
    521. 'Make the next 4 rows blue-purple
    522. Macro7
    523. For X03 = 1 To 2
    524. Macro8
    525. Next
    526. 740 Application.CutCopyMode = False
    527. 'Make the next 2 rows red
    528. Macro6
    529. 750 Application.CutCopyMode = False
    530. 'Make the next 7 rows black
    531. Macro7
    532. For X03 = 1 To 5
    533. Macro8
    534. Next
    535. 780 Application.CutCopyMode = False
    536. 'Make the next 6 rows red
    537. Macro6
    538. For X03 = 1 To 4
    539. Macro8
    540. Next
    541. 800 Application.CutCopyMode = False
    542. 'Make the next 7 rows black
    543. Macro6
    544. For X03 = 1 To 5
    545. Macro8
    546. Next
    547. 820 Application.CutCopyMode = False
    548. 'Make the next 6 rows red
    549. Macro7
    550. For X03 = 1 To 4
    551. Macro8
    552. Next
    553. 840 Application.CutCopyMode = False
    554. 'Make the next (the last) 7 rows black
    555. Macro7
    556. For X03 = 1 To 5
    557. Macro8
    558. Next
    559. 870 Application.CutCopyMode = False
    560. Columns("B:SQ").Select
    561. Range("B178").Activate
    562. Selection.ColumnWidth = 0.18
    563. Rows("2:205").Select
    564. Range("A205").Activate
    565. Selection.RowHeight = 4
    566. Macro11
    567. ActiveWorkbook.SaveAs Filename:= _
    568. "Macintosh HD:Users:chrisgarthwaite:Documents:Excel ƒ:Tartan Work: Anderson Tartan Development.xlsm" _
    569. , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    570. End Sub
    571. Sub Macro6()
    572. ' Macro6 Macro
    573. Selection.Copy
    574. 0 For X01 = 1 To 255
    575. ActiveCell.Offset(0, 2).Select
    576. ActiveSheet.Paste
    577. Next
    578. ActiveCell.Offset(1, -510).Select
    579. ActiveSheet.Paste
    580. ActiveCell.Offset(0, 1).Select
    581. ActiveSheet.Paste
    582. For X02 = 1 To 255
    583. ActiveCell.Offset(0, 2).Select
    584. ActiveSheet.Paste
    585. Next
    586. ActiveCell.Offset(1, -511).Select
    587. End Sub
    588. Sub Macro7()
    589. ' Macro7 Macro
    590. Selection.Copy
    591. ActiveCell.Offset(0, 1).Select
    592. ActiveSheet.Paste
    593. 20 For X01 = 1 To 255
    594. ActiveCell.Offset(0, 2).Select
    595. ActiveSheet.Paste
    596. Next
    597. ActiveCell.Offset(1, -511).Select
    598. ActiveSheet.Paste
    599. For X02 = 1 To 255
    600. ActiveCell.Offset(0, 2).Select
    601. ActiveSheet.Paste
    602. Next
    603. ActiveCell.Offset(1, -510).Select
    604. ActiveSheet.Paste
    605. End Sub
    606. Sub Macro8()
    607. ' Macro8 Macro
    608. ActiveCell.Offset(-2, 510).Select
    609. ActiveWorkbook.Names.Add Name:="RightEnd", RefersToR1C1:=ActiveCell
    610. ActiveCell.Offset(2, -510).Select
    611. ActiveCell.Offset(-2, 0).Select
    612. ActiveWorkbook.Names.Add Name:="LeftEnd", RefersToR1C1:=ActiveCell
    613. Application.Goto Reference:="LeftEnd: RightEnd"
    614. Selection.Copy
    615. ActiveCell.Offset(2, 0).Select
    616. ActiveSheet.Paste
    617. ActiveCell.Offset(1, 0).Select
    618. ActiveWorkbook.Save
    619. End Sub
    620. Sub Macro11()
    621. ' Macro11 Macro
    622. Columns("A:A").Select
    623. Selection.Copy
    624. Columns("SR:SR").Select
    625. ActiveSheet.Paste
    626. Columns("SS:SS").Select
    627. Application.CutCopyMode = False
    628. Selection.Delete Shift:=xlToLeft
    629. Range("A1").Select
    630. End Sub
    632. Be patient, please. The macro can take anywhere from 3.5 minutes to a half hour or more to run, depending on your processor (speed). The code could have been written to run quicker but it would have been less easy to understand. The line numbers are there to break up the code between different colors; a long section of code actually goes from what would be Line 841 to Line 870, typically. There are shorter sections where there were only single or double threads (otherwise, looping was used, so the max loop value for the last X03 of 5 means that there are 5+2 = 7 rows or threads in the last weft section of black. It is black because of Macro3 leaving the top cell of the 7 black. The first two rows have every other cell pasted from this origin cell; after that, the entire done rows are copied and pasted below per the X03 loop, which is much quicker. They are only done singly, however, as multiples would get confusing, given that the tartan is very inconsistent in how many threads per weft section there are, actually. That said, the macro is so very much faster than doing it manually, there is just No Comparison!!
  2. How to Make a Tartan Heart Image in Excel Picture 3
    Final image:
4 ★ | 1 Vote
rangeselectcolorrgb

You should read it

May be interested

Program