{"id":12858,"date":"2022-11-18T17:31:34","date_gmt":"2022-11-18T08:31:34","guid":{"rendered":"http:\/\/melotopia.net\/b\/?p=12858"},"modified":"2022-11-18T17:31:34","modified_gmt":"2022-11-18T08:31:34","slug":"%ec%97%91%ec%85%80%ea%b3%bc-%ed%8c%8c%ec%9b%8c%ed%8f%ac%ec%9d%b8%ed%8a%b8%eb%a5%bc-%ed%8c%8c%ec%9d%b4%ec%8d%ac%ec%97%90%ec%84%9c","status":"publish","type":"post","link":"http:\/\/melotopia.net\/b\/?p=12858","title":{"rendered":"\uc5d1\uc140\uacfc \ud30c\uc6cc\ud3ec\uc778\ud2b8\ub97c \ud30c\uc774\uc36c\uc5d0\uc11c"},"content":{"rendered":"\n

\uc5d1\uc140\uacfc \ud30c\uc6cc\ud3ec\uc778\ud2b8\ub97c \ud30c\uc774\uc36c\uc5d0\uc11c \uc5f0\ub3d9\uc2dc\ucf1c\uc11c \ubb58 \ud574\ubcf4\ub824\uace0 \ud588\ub294\ub370, \ucc3e\uc544\ubcf4\ub290\ub77c \uc0bd\uc9c8\uc744 \uc880 \ud588\ub2e4. \uadf8\ub798\uc11c \ub2e4\uc74c\uacfc \uac19\uc774 \uc694\uc57d\ud574 \ub454\ub2e4.<\/p>\n\n\n\n

from win32com import client # \uc5d1\uc140\uc774\ub098 \ud30c\uc6cc\ud3ec\uc778\ud2b8\ub97c \ud30c\uc774\uc36c\uc5d0\uc11c \uc5f0\uacb0\ud558\ub824\uba74 \uaf2d \uc368\uc57c \ud558\ub294 \uba85\ub839\uc774\ub2e4.<\/code><\/p>\n\n\n\n

xl = client.Dispatch(\"Excel.Application\") # \uc5d1\uc140\uc744 \uc2e4\ud589\uc2dc\ucf1c\uc11c \ud30c\uc774\uc36c\uc5d0 \uc5f0\uacb0\ud55c\ub2e4.
xl.Visible = 1 # \uc5d1\uc140 \ucc3d\uc744 \ub208\uc5d0 \ubcf4\uc774\uac8c \ud560\uc9c0 \ub9d0\uc9c0\ub97c \uc120\ud0dd\ud55c\ub2e4. 0\uc740 \uc548\ubcf4\uc784, 1\uc740 \ubcf4\uc784.
xl.Quit() # \uc5d1\uc140\uc744 \uc885\ub8cc\ud55c\ub2e4. \ub9cc\uc57d client.Dispatch\uc5d0\uc11c xl1, xl2\ub77c\ub294 \uc2dd\uc73c\ub85c \uc5d1\uc140\uc744 \ub450\uac1c \uc2e4\ud589\uc2dc\ucf30\uc73c\uba74 \ubcc0\uc218\uc5d0 \ud574\ub2f9\ud558\ub294 \uc5d1\uc140\ub9cc \uc885\ub8cc\ub41c\ub2e4.<\/code><\/p>\n\n\n\n

myfile=xl.Workbooks.Open(filename) # \uc5d1\uc140\uc5d0 \uc9c0\uc815\ub41c \ud30c\uc77c\uc744 \uc5f4\ub3c4\ub85d \ud55c\ub2e4. \uadf8\ub9ac\uace0 \uadf8 \ud30c\uc77c \ud578\ub4e4\ub7ec\ub97c myfile\uc774\ub77c\ub294 \ubcc0\uc218\uc5d0 \uc800\uc7a5\ud574\uc11c \uc4f8 \uc218 \uc788\uac8c \ud55c\ub2e4. Workbook\uc774\ub780 \uc5d1\uc140 \ud30c\uc77c\uc744 \ub73b\ud55c\ub2e4.
myfile.Save() # myfile\uc5d0\uc11c \uc0ac\uc6a9\ud558\uace0 \uc788\ub358 \ud30c\uc77c\uc744 \uc800\uc7a5\ud55c\ub2e4.
myfile.Close() # myfile\uc5d0\uc11c \uc0ac\uc6a9\ud558\uace0 \uc788\ub358 \ud30c\uc77c\uc744 \ub2eb\ub294\ub2e4.<\/code><\/p>\n\n\n\n

mynewfile=xl.Workbooks.Add() # \uc5d1\uc140\uc5d0\uc11c \uc0c8 \ud30c\uc77c\uc744 \uc5f0\ub2e4. \uadf8\ub9ac\uace0 \uadf8 \ud30c\uc77c \ud578\ub4e4\ub7ec\ub97c mynewfile\uc774\ub77c\ub294 \ubcc0\uc218\uc5d0 \uc800\uc7a5\ud574\uc11c \uc4f8 \uc218 \uc788\uac8c \ud55c\ub2e4.<\/code><\/p>\n\n\n\n

\uc544\ub798\uc5d0\uc11c, \uc2dc\ud2b8\ub294 \uc6cc\ud06c\uc2dc\ud2b8\uc640 \ucc28\ud2b8\uc2dc\ud2b8\ub97c \ud3ec\ud568\ud558\ub294 \uc804\uccb4 \uc2dc\ud2b8\ub2e4. <\/p>\n\n\n\n

myfile.Sheets(sheet_no) # myfile\uc5d0 \uc788\ub294 \uc2dc\ud2b8 \uc911\uc5d0 sheet_no\ub97c \uc120\ud0dd\ud55c\ub2e4. sheet_no\ub294 \uc815\uc218(int)\uc774\uac70\ub098 \ubb38\uc790\uc5f4\uc774\uc5b4\uc11c, \uc815\uc218\ub77c\uba74 \uadf8 \uc2dc\ud2b8\uc758 \ubc88\ud638\ub97c \ub9d0\ud558\uace0, \ubb38\uc790\uc5f4\uc740 \uadf8 \uc2dc\ud2b8\uc758 \uc774\ub984\uc744 \ub9d0\ud55c\ub2e4.
myfile.Worksheets(sheet_no) # myfile\uc5d0 \uc788\ub294 \uc6cc\ud06c\uc2dc\ud2b8 \uc911\uc5d0 sheet_no\ub97c \uc120\ud0dd\ud55c\ub2e4.
myfile.Charts(chart_no) # myfile\uc5d0 \uc788\ub294 \ucc28\ud2b8\uc2dc\ud2b8 \uc911\uc5d0 sheet_no\ub97c \uc120\ud0dd\ud55c\ub2e4.
myfile.Sheets(1).Name= \"XYZ\" # myfile\uc5d0\uc11c 1\ubc88 \uc2dc\ud2b8\uc758 \uc774\ub984\uc744 \"XYZ\"\ub85c \uace0\uce5c\ub2e4.<\/code><\/p>\n\n\n\n

myfile.Worksheets(1).Range(\"F21\").Value = 10 # myfile\uc5d0\uc11c 1\ubc88 \uc6cc\ud06c\uc2dc\ud2b8\uc5d0 \uc788\ub294 \"F21\"\uc774\ub77c\ub294 \uc140\uc758 \uac12\uc744 10\uc73c\ub85c \uace0\uce5c\ub2e4.
myfile.Worksheets(1).Range(\"F21:G25\").Value = 10 # myfile\uc5d0\uc11c 1\ubc88 \uc6cc\ud06c\uc2dc\ud2b8\uc5d0 \uc788\ub294 \"F21\"\uc5d0\uc11c \"G25\"\uc758 \ubc94\uc704\uc5d0 \uc788\ub294 \uc140\uc758 \uac12\uc744 10\uc73c\ub85c \uace0\uce5c\ub2e4.<\/code><\/p>\n\n\n\n

myfile.Worksheets(\"\uacb0\uacfc\").Range(\"A1:C10\").Copy() # myfile\uc5d0\uc11c \"\uacb0\uacfc\"\ub77c\ub294 \uc6cc\ud06c\uc2dc\ud2b8\uc5d0\uc11c \"A1\"\uc140\uacfc \"C10\"\uc140 \ubc94\uc704\uc758 \uc140\ub4e4\uc744 \ubcf5\uc0ac\ud55c\ub2e4. \uc774\uac83\uc740 Ctrl-C\ub97c \ub20c\ub7ec\uc11c \ubcf5\uc0ac\ud55c \uac83\uacfc \uac19\uc774 \ud074\ub9bd\ubcf4\ub4dc\uc5d0 \ubcf5\uc0ac\ub41c\ub2e4.
myfile2.Worksheets(3).Range(\"B2:D11\").Select() # myfile2\uc5d0\uc11c 3\ubc88 \uc6cc\ud06c\uc2dc\ud2b8\uc5d0 \"B2\"\uc140\uacfc \"D11\"\uc140 \ubc94\uc704\uc758 \uc140\ub4e4\uc744 \uc120\ud0dd\ud55c\ub2e4. \uc774\uac83\uc740 \ub9c8\uc6b0\uc2a4\ub85c \ub4dc\ub798\uadf8\ud574\uc11c \uc120\ud0dd\ud55c \uac83\uacfc \uac19\ub2e4.
myfile2.Worksheets(3).Range(\"B2:D11\").Paste() # \ubc29\uae08 \uace0\ub978 \ubc94\uc704\uc5d0 \ud074\ub9bd\ubcf4\ub4dc\uc5d0 \ubcf5\uc0ac\ub41c \ub0b4\uc6a9\uc744 \ubd99\uc5ec\ub123\uae30 \ud55c\ub2e4 \uc774\uac83\uc740 Ctrl-V\ub85c \ubd99\uc5ec\ub123\uae30 \ud55c \uac83\uacfc \uac19\ub2e4. \ubcf5\uc0ac\ud560 \ub54c\uc758 \uc140 \ubc94\uc704\uc758 \ud06c\uae30\uc640 \ubd99\uc5ec\ub123\uae30 \ud560 \ub54c\uc758 \uc140 \ubc94\uc704\uc758 \ud06c\uae30\uac00 \ub2e4\ub974\uba74 \uc624\ub958\uac00 \ubc1c\uc0dd\ud55c\ub2e4.<\/code><\/p>\n\n\n\n

myfile2.Worksheets(3).Range(\"A1:C10\").PasteSpecial(-4163) # PasteSpecial\uc740 \ubd99\uc5ec\ub123\uae30\uc5d0 \uc635\uc158\uc744 \uc8fc\ub294 \ubc29\ubc95\uc774\ub2e4. \uc548\uc5d0 \ub4e4\uc5b4\uac04 \uc22b\uc790\ub294 \ubd99\uc5ec\ub123\uae30 \ud560 \ub54c\uc758 \uc635\uc158\uc744 \uc815\ud55c\ub2e4. \uadf8 \uc22b\uc790\uc758 \uc758\ubbf8\ub294 https:\/\/learn.microsoft.com\/ko-kr\/office\/vba\/api\/excel.xlpastetype \uc5d0\uc11c \ucc3e\uc544\ubcfc \uc218 \uc788\ub2e4.<\/code><\/p>\n\n\n\n

myfile.Worksheets(2).Range(\"A3:R2863\").AutoFilter(Field=9,Criteria1=\">=400\") # \uc8fc\uc5b4\uc9c4 \ubc94\uc704\uc5d0 \ud544\ud130\ub97c \uc8fc\ub294 \ubc29\ubc95\uc774\ub2e4. Field=9\ub294 \uac00\uc7a5 \uc67c\ucabd\uc778 A\ubd80\ud130 \uc2dc\uc791\ud574\uc11c \uc21c\uc11c\ub85c 9\ubc88\uc9f8\uc778 I \uc5f4\uc5d0 \ud544\ud130\ub97c \uc801\uc6a9\ud558\uaca0\ub2e4\ub294 \ub73b\uc774\ub2e4. Criteria1>=400\uc740 400\ubcf4\ub2e4 \uac19\uac70\ub098 \ud070 \uac12\uc744 \uace8\ub77c\ub0b4\uaca0\ub2e4\ub294 \ub73b\uc774\ub2e4. Criteria2\ub3c4 \uc9c0\uc815 \uac00\ub2a5\ud558\ub2e4.
myfile.Worksheets(2).Range(\"A4:R2863\").SpecialCells(12).Copy() # \uc5ec\uae30\uc11c SpecialCells\ub294 \uc140 \uc911\uc5d0 \uc6d0\ud558\ub294 \uac83\ub9cc \uace8\ub77c\ub0b4\ub294 \ubc29\ubc95\uc774\ub2e4. 12\ub294 \ubcf4\uc774\ub294 \uc140\ub4e4\ub9cc \uace0\ub974\uaca0\ub2e4\ub294 \ub73b\uc774\ub2e4. \uc22b\uc790\uc758 \uc758\ubbf8\ub294 https:\/\/learn.microsoft.com\/ko-kr\/office\/vba\/api\/excel.xlcelltype \uc5d0\uc11c \ucc3e\uc544\ubcfc \uc218 \uc788\ub2e4.<\/code>
myfile.Worksheets(3).Range(\"A4\").PasteSpecial(-4163) # \uc55e\uc5d0\uc11c \uc124\uba85\ud588\ub358 \uac70\ub77c\uc11c \uc0dd\ub7b5. \uc55e\uc758 \uba85\ub839\uacfc \uc870\ud569\ud558\uba74 2\ubc88\uc2dc\ud2b8\uc5d0 \uc788\ub358\uac78 3\ubc88\uc2dc\ud2b8\ub85c \uace8\ub77c\uc11c \ubcf5\uc0ac\ud558\ub294 \uba85\ub839\uc774 \ub41c\ub2e4. \ub2e8, \ubc94\uc704 \uc120\ud0dd\uc744 \uc774\ub807\uac8c \ud55c \uce78\ub9cc \ud574\uc8fc\uba74, \ub098\uba38\uc9c0\ub294 \uc54c\uc544\uc11c \ubd99\uc5ec\ub123\uae30\uac00 \ub41c\ub2e4.
myfile.Worksheets(2).AutoFilterMode=False # \ud544\ud130 \ubd99\uc600\ub358\uac78 \ub044\uace0 \ubaa8\ub4e0 \ud56d\ubaa9\uc774 \ub098\ud0c0\ub098\uac8c \ud55c\ub2e4. \ud544\ud130\ub97c \uac78 \ub54c\ub294 Range\uac00 \uc788\uc5c8\ub294\ub370 \ub04c \ub54c\ub294 \uc5c6\ub2e4\ub294 \uac83\uc744 \uc870\uc2ec\ud558\uc790.<\/code><\/p>\n\n\n\n

myfile.Worksheets(\"\uacb0\uacfc\").Range(\"B4:F2863\").Sort(Key1=myfile.Worksheets(\"\uacb0\uacfc\").Range(\"B3\"),Order1=1) # \uc815\ub82c\uc2dc\ud0a4\ub294 \uba85\ub839\uc5b4. B4\uc5d0\uc11c F2862\uc758 \ubc94\uc704\uc5d0 \uc788\ub294 \uac12\ub4e4\uc744 \uc815\ub82c\ud558\ub294\ub370, \uadf8 \uae30\uc900\uc744 B3\uc758 \uc5f4\uc5d0 \ud574\ub2f9\ud558\ub294 \uac12\uc744 \uae30\uc900\uc73c\ub85c \uc0bc\uaca0\ub2e4\ub294 \ub73b\uc774\ub2e4. Order1\uc740 1\uc774 \uc624\ub984\ucc28\uc21c, 2\uac00 \ub0b4\ub9bc\ucc28\uc21c\uc774\ub2e4. \uc790\uc138\ud55c \uac83\uc740 https:\/\/learn.microsoft.com\/en-us\/office\/vba\/api\/excel.range.sort \uc744 \ucc38\uace0\ud558\uc790.<\/code><\/p>\n\n\n\n

\uc774\uc81c \ucc28\ud2b8\ub97c \uadf8\ub824\ubcf4\uc790.<\/p>\n\n\n\n

myfile.Worksheets(1).Shapes.AddChart(4,800,420,400,200).Select() # \uc77c\ub2e8 \ucc28\ud2b8\ub97c \uadf8\ub9ac\uace0 \uc120\ud0dd\ud55c\ub2e4. Select()\ub97c \ud574\uc8fc\uba74 \uc544\ub798\uc758 ActiveChart\ub85c \uc4f8 \uc218 \uc788\ub2e4. Shapes\uc5d0\ub294 \ucc28\ud2b8\ub9cc \uc788\ub294\uac74 \uc544\ub2c8\uc9c0\ub9cc, \uc544\ubb34\ud2bc \uc5ec\uae30\uc11c\ub294 \ucc28\ud2b8\ub97c \uadf8\ub9b4 \uac83\uc774\ub2e4. AddChart(\ucc28\ud2b8 \uc885\ub958, \uac00\ub85c \uc704\uce58, \uc138\ub85c \uc704\uce58, \ud3ed, \ub192\uc774) \ub85c \uc785\ub825\ud55c\ub2e4. \ud06c\uae30\uc758 \ub2e8\uc704\ub294 \"\ud3ec\uc778\ud2b8\"\ub2e4. \uae00\uc790 \ud06c\uae30\ub97c \uc774\uc57c\uae30\ud560 \ub54c\uc758 \uadf8 \ud3ec\uc778\ud2b8. \ucc28\ud2b8 \uc885\ub958\ub294 \uc22b\uc790\ub85c \uc9c0\uc815\ud558\ub294\ub370, \uc6d0\ud558\ub294 \ubaa8\uc591\uc5d0 \ub530\ub77c https:\/\/learn.microsoft.com\/en-us\/office\/vba\/api\/excel.xlcharttype \uc744 \ucc38\uace0\ud574\uc11c \uace8\ub77c\uc8fc\uc790.
xl.ActiveChart.SetSourceData(Source=myfile.Worksheets(\"Cal\").Range(\"F4:F20\")) # \ucc28\ud2b8\uc5d0 \uadf8\ub9bc\uc744 \uadf8\ub9b4 \ub370\uc774\ud130\ub97c \uc9c0\uc815\ud55c\ub2e4.
xl.ActiveChart.HasTitle=True # \uc81c\ubaa9\uc774 \uc0dd\uae30\ub3c4\ub85d \ud55c\ub2e4.
xl.ActiveChart.HasLegend=False # \ubc94\ub840\ub294 \uc5c6\ub3c4\ub85d \ud55c\ub2e4. True\ub77c\uace0 \uc801\uc73c\uba74 \ubc94\ub840\uac00 \ub098\ud0c0\ub09c\ub2e4.
xl.ActiveChart.ChartType=75 # \uc55e\uc5d0 AddChart\uc5d0\uc11c \uc544\ubb34 \uc22b\uc790\ub098 \ub123\uc5b4\uc11c \ucc28\ud2b8\ub97c \ub9cc\ub4e4\uace0, \uc5ec\uae30\uc11c \ucc28\ud2b8 \uc885\ub958\ub97c \ubc14\uafd4\ub3c4 \ub41c\ub2e4. \uc6d0\ud558\ub294 \ubaa8\uc591\uc5d0 \ub530\ub77c https:\/\/learn.microsoft.com\/en-us\/office\/vba\/api\/excel.xlcharttype \uc744 \ucc38\uace0\ud574\uc11c \uace8\ub77c\uc8fc\uc790.
xl.ActiveChart.Axes(1).MajorUnit=50 # X\ucd95\uc758 \ub208\uae08 \ub2e8\uc704 50\ub9c8\ub2e4 \ud558\ub098\uc529 \uc801\uae30\ub85c \ud55c\ub2e4. \uc790\ub9e4\ud488\uc73c\ub85c MinorUnit\ub3c4 \uc788\ub2e4. Y\ucd95\uc744 \ubc14\uafb8\uace0 \uc2f6\uc73c\uba74 Axes(2)\ub97c \uc4f0\uc790.
xl.ActiveChart.ChartTitle.Characters.Font.Size=12 # \uc81c\ubaa9\uc758 \uae00\uc790 \ud06c\uae30\ub97c 12\ud3ec\uc778\ud2b8\ub85c \uc815\ud55c\ub2e4.
xl.ActiveChart.ChartTitle.text = myfile.Worksheets(2).Range(\"F3\").Value # \uc81c\ubaa9 \ub0b4\uc6a9\uc744 \ub2e4\ub978 \uc140\uc5d0\uc11c \uac00\uc838\uc62c \uc218\ub3c4 \uc788\ub2e4.<\/code><\/p>\n\n\n\n

xl.ActiveChart.SeriesCollection().NewSeries() # \ucc28\ud2b8 \ud558\ub098\uc5d0 \uadf8\ub798\ud504\ub97c \ub450\uac1c \uadf8\ub9ac\uace0 \uc2f6\uc744 \ub54c \uc4f4\ub2e4.
xl.ActiveChart.FullSeriesCollection(2).Name = \"\" # \ubc94\ub840\uc5d0 \ub4e4\uc5b4\uac08 \uc774\ub984\uc774\ub2e4. \uc5ec\uae30\uc11c\ub294 \ube48\uce78\uc744 \ub73b\ud55c\ub2e4.
xl.ActiveChart.FullSeriesCollection(2).XValues = myfile.Worksheets(\"Cal\").Range(\"A4:A20\") # \ucd94\uac00\ud560 \uadf8\ub798\ud504\uc758 X\ucd95 \uac12\ub4e4\uc774\ub2e4.
xl.ActiveChart.FullSeriesCollection(2).Values = myfile.Worksheets(\"Cal\").Range(\"W4:W20\") # \ucd94\uac00\ud560 \uadf8\ub798\ud504\uc758 Y\ucd95 \uac12\ub4e4\uc774\ub2e4.
xl.ActiveChart.FullSeriesCollection(2).Format.Line.Weight=3 # \ucd94\uac00\ud560 \uadf8\ub798\ud504\uc758 \uad75\uae30\ub2e4.
xl.ActiveChart.FullSeriesCollection(2).Format.Line.Visible=True # \ucd94\uac00\ud560 \uadf8\ub798\ud504\ub97c \ubcf4\uc774\uac8c \uc124\uc815\ud55c\ub2e4.
xl.ActiveChart.FullSeriesCollection(2).Format.Line.ForeColor.RGB=255 # \ucd94\uac00\ud560 \uadf8\ub798\ud504\uc758 \uc0c9\uc744 \uc815\ud55c\ub2e4. 255\ub77c\uace0 \uc4f0\uba74 \ube68\uac04\uc0c9\uc774\ub2e4.<\/code><\/p>\n\n\n\n

myfile.Worksheets(1).ChartObjects(2).Copy() # 1\ubc88 \uc6cc\ud06c\uc2dc\ud2b8\uc5d0\uc11c \ucc28\ud2b8 2\ubc88\uc744 \uace0\ub978\ub2e4. ChartObjects\ub294 \uc0dd\uc131\ub41c \uc21c\uc11c\ub300\ub85c \ubc88\ud638\uac00 \ubd99\ub294\ub2e4\uace0 \uc0dd\uac01\ud558\uba74 \ub41c\ub2e4. \uc989, ChartObjects(2)\ub294 \uadf8 \uc2dc\ud2b8\uc5d0\uc11c 2\ubc88\uc9f8\ub85c \uc0dd\uc131\ub41c \ucc28\ud2b8\ub97c \uace0\ub978\ub2e4. \ub2e4\ub978\ub370 \ubd99\uc5ec\ub123\uace0 \uc2f6\uc73c\ub2c8\uae4c Copy()\ub97c \ud588\ub2e4.<\/code><\/p>\n\n\n\n

myfile.Worksheets(1).Columns(\"A\").ColumnWidth = 8.38 # \uc6cc\ud06c\uc2dc\ud2b8 1\ubc88\uc758 A\uc5f4\uc758 \ud3ed\uc744 8.38\ub85c \uc815\ud55c\ub2e4. \ub2e8\uc704\ub294 \ud3ec\uc778\ud2b8\ub2e4.<\/code><\/p>\n\n\n\n

\ud30c\uc6cc\ud3ec\uc778\ud2b8\ub97c \uc368 \ubcf4\uc790.<\/p>\n\n\n\n

ppt= client.Dispatch(\"PowerPoint.Application\") # \ud30c\uc774\uc36c\uc5d0 \ud30c\uc6cc\ud3ec\uc778\ud2b8\ub97c \uc5f0\uacb0\ud55c\ub2e4.
ppt.Quit() # \ud30c\uc6cc\ud3ec\uc778\ud2b8\ub97c \uc885\ub8cc\uc2dc\ud0a8\ub2e4.
presentation=ppt.Presentations.Add() # \uc0c8 \ud504\ub9ac\uc820\ud14c\uc774\uc158 \ud30c\uc77c\uc744 \uc0dd\uc131\ud55c\ub2e4. \uc6d0\ud55c\ub2e4\uba74 \uc5d1\uc140\uc5d0\uc11c\ucc98\ub7fc Open(\"\ud30c\uc77c\uc774\ub984\")\uc744 \uc4f8 \uc218\ub3c4 \uc788\ub2e4.
presentation.Save() #\ud30c\uc77c\uc744 \uc800\uc7a5\ud55c\ub2e4.
presentation.SaveAs() # \ud30c\uc77c\uc744 \ub2e4\ub978 \uc774\ub984\uc73c\ub85c \uc800\uc7a5\ud55c\ub2e4.<\/code><\/p>\n\n\n\n

presentation.Slides.Add(4,12) # \uc0c8 \uc2ac\ub77c\uc774\ub4dc\ub97c 4\ubc88\uc9f8 \uc704\uce58\uc5d0 \ub123\ub294\ub2e4. \uc989, \uc0c8\ub85c \ub9cc\ub4e4\uc5b4\uc9c4 \uc2ac\ub77c\uc774\ub4dc\uac00 4\ud398\uc774\uc9c0\ub2e4. 12\ub294 \ub808\uc774\uc544\uc6c3\uc744 \uc815\ud558\ub294 \uc22b\uc790\uc778\ub370, \uadf8\uc911\uc5d0\uc11c\ub3c4 12\ub294 \ube48 \uc2ac\ub77c\uc774\ub4dc\ub2e4. \ub2e4\ub978 \uac83\ub3c4 \uc368\ubcf4\uc790.<\/code><\/p>\n\n\n\n

presentation.Slides(4).Shapes.PasteSpecial(DataType=1) # \uc55e\uc5d0 \uc5d1\uc140\uc5d0\uc11c \ubcf5\uc0ac\ud55c \ucc28\ud2b8\ub97c \ubd99\uc5ec\ub123\uae30 \ud560 \uc218 \uc788\ub2e4. DataType=1\uc774\ub77c\ub294 \uc635\uc158\uc740 \uadf8\ub9bc\uc73c\ub85c \ubd99\uc5ec\ub123\uae30 \ud558\uaca0\ub2e4\ub294 \ub73b\uc774\ub2e4. \ub2e4\ub974\uac8c \ubd99\uc5ec\ub123\uace0 \uc2f6\uc73c\uba74 https:\/\/learn.microsoft.com\/en-us\/office\/vba\/api\/powerpoint.pppastedatatype \uc744 \ucc38\uace0\ud574\uc11c \ub2e4\ub978 \uc22b\uc790\ub97c \uc801\uc790.
presentation.Slides(4).Shapes(1).LockAspectRatio=False # \uadf8\ub9bc\uc744 \ubd99\uc5ec\ub123\uae30 \ud560 \ub54c, \uac00\ub85c-\uc138\ub85c \ube44\uc728\uc744 \uace0\uc815\ud558\uc9c0 \uc54a\uace0 \ub0b4 \ub9d8\ub300\ub85c \uc815\ud558\uace0 \uc2f6\uc744 \ub54c\uac00 \uc788\ub294\ub370 \uadf8\ub54c False\ub97c \uc4f4\ub2e4. \uace0\uc815\uc2dc\ud0a4\ub824\uba74 True\ub97c \uc4f4\ub2e4.
presentation.Slides(4).Shapes(1).Left=20 # Shapes(1)\uc740 1\ubc88\uc9f8\ub85c \ub9cc\ub4e4\uc5b4\uc9c4 \uadf8\ub9bc\uc744 \uace0\ub978\ub2e4\ub294 \ub73b\uc774\ub2e4. \uc5ec\uae30\uc11c\ub3c4 \ub9cc\ub4e4\uc5b4\uc9c4 \uc21c\uc11c\ub300\ub85c \uadf8\ub9bc\uc744 \uace0\ub97c \uc218 \uc788\ub2e4. Left\ub294 \uadf8\ub9bc\uc758 \uc67c\ucabd \uc704\ub97c \uae30\uc900\uc73c\ub85c \ud55c \uadf8\ub9bc\uc758 \uac00\ub85c \uc704\uce58\ub2e4.
presentation.Slides(4).Shapes(1).top=50 # Top\ub294 \uadf8\ub9bc\uc758 \uc67c\ucabd \uc704\ub97c \uae30\uc900\uc73c\ub85c \ud55c \uadf8\ub9bc\uc758 \uc138\ub85c \uc704\uce58\ub2e4.
presentation.Slides(4).Shapes(1).Width=400 # Width\ub294 \uadf8\ub9bc\uc758 \ud3ed\uc774\ub2e4.
presentation.Slides(4).Shapes(1).Height=200 # Height\ub294 \uadf8\ub9bc\uc758 \ub192\uc774\ub2e4.<\/code><\/p>\n\n\n\n

tb=presentation.slides(4).Shapes.AddTextbox(1,50,25,200,50) # 4\ubc88 \uc2ac\ub77c\uc774\ub4dc\uc5d0 \ud14d\uc2a4\ud2b8\ubc15\uc2a4\ub97c \ucd94\uac00\ud55c\ub2e4.
tb.TextFrame2.TextRange.Characters.Text=\"\ub0b4\uc6a9\uc801\uae30\" # \ubc29\uae08 \ub9cc\ub4e0 \ud14d\uc2a4\ud2b8\ubc15\uc2a4\uc758 \ub0b4\uc6a9\uc744 \uc801\ub294\ub2e4. <\/code>TextFrame2.TextRange\uc758 \ub73b\uc740 \uad6c\uae00\uc5d0\uc11c \ucc3e\uc544\ubcf4\ub3c4\ub85d \ud558\uc790.<\/p>\n\n\n\n

<\/p>\n","protected":false},"excerpt":{"rendered":"

\uc5d1\uc140\uacfc \ud30c\uc6cc\ud3ec\uc778\ud2b8\ub97c \ud30c\uc774\uc36c\uc5d0\uc11c \uc5f0\ub3d9\uc2dc\ucf1c\uc11c \ubb58 \ud574\ubcf4\ub824\uace0 \ud588\ub294\ub370, \ucc3e\uc544\ubcf4\ub290\ub77c \uc0bd\uc9c8\uc744 \uc880 \ud588\ub2e4. \uadf8\ub798\uc11c \ub2e4\uc74c\uacfc \uac19\uc774 \uc694\uc57d\ud574 \ub454\ub2e4. from win32com import client # \uc5d1\uc140\uc774\ub098 \ud30c\uc6cc\ud3ec\uc778\ud2b8\ub97c \ud30c\uc774\uc36c\uc5d0\uc11c \uc5f0\uacb0\ud558\ub824\uba74 \uaf2d \uc368\uc57c \ud558\ub294 \uba85\ub839\uc774\ub2e4. xl = client.Dispatch(“Excel.Application”) # \uc5d1\uc140\uc744 \uc2e4\ud589\uc2dc\ucf1c\uc11c \ud30c\uc774\uc36c\uc5d0 \uc5f0\uacb0\ud55c\ub2e4.xl.Visible = 1 # \uc5d1\uc140 \ucc3d\uc744 \ub208\uc5d0 \ubcf4\uc774\uac8c \ud560\uc9c0 \ub9d0\uc9c0\ub97c \uc120\ud0dd\ud55c\ub2e4. 0\uc740 \uc548\ubcf4\uc784, 1\uc740 \ubcf4\uc784.xl.Quit() # \uc5d1\uc140\uc744 \uc885\ub8cc\ud55c\ub2e4. \ub9cc\uc57d […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_crdt_document":"","_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[4,12],"tags":[28,26,27,25,31,29],"class_list":["post-12858","post","type-post","status-publish","format-standard","hentry","category-diary","category-12","tag-automation","tag-excel","tag-powerpoint","tag-python","tag-vba","tag-win32com"],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p8o6gA-3lo","jetpack-related-posts":[],"jetpack_likes_enabled":true,"_links":{"self":[{"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/posts\/12858","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=12858"}],"version-history":[{"count":3,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/posts\/12858\/revisions"}],"predecessor-version":[{"id":12861,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/posts\/12858\/revisions\/12861"}],"wp:attachment":[{"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=12858"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=12858"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=12858"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}