オズの魔法使いシリーズ The Wonderful Wizard of Oz

 オズの魔法使いシリーズ  

1. The Wonderful Wizard of Oz

有名な1作目。

Dorothy　主人公。カンサス出身の女の子。

Scarecrow　カカシ。続編でも頻繁に出てくる。魔法生物ではないが、同等のチート能力（食べない、眠らない、疲れない）を持つ。ただし、火や水に弱いため、まだ納得できる。

Tin Woodman　木こり。続編でもたまに出てくる。やさしくて良いやつ。彼も魔法生物ではないのにチート能力を持つ。水に弱いが武器もあり、カカシより能力としては高い。

Cowardly Lion　ライオン。珍しく普通の動物。続編では主にちょい役。

Wizard of Oz　魔法使い。続編ではかなりパワーアップして頻繁に活躍する。

2. The Marvelous Land of Oz

オズの国の体制が出来上がる話。以降の続編では基本的にこの体制が続くことになる。

Tip　主人公の少年。ほとんどの続編に出てくる。

Jack Pumpkinhead　魔法生物。おとなしい。

Sawhorse　ヘボい見た目とは裏腹に、オズシリーズで最強の魔法生物。性格も超強気。続編でも頻繁に登場し、大活躍する。

Jinjur　女の子。軽いノリでエメラルドシティを制圧する。

3. Ozma of Oz

2作目にドロシーが出なかったことにかなりの苦情が来たみたいで、ドロシーが出てくる。

Billina　ニワトリ。珍しく普通の動物。性格が超強気。

Tik-Tok　ゼンマイ駆動のロボ。

Nome King　地下の王様。気性が荒い。続編でもよく出てくる。いろいろ大変。

4. Dorothy and the Wizard in Oz

地割れに飲み込まれて地下に落ちる。Ozのおっさんがエメラルドシティに帰ってくる。個人的にはシリーズ一番のそりゃないだろエンド。

Zeb　ドロシーのいとこ。続編には登場しない。

Jim　Zebの馬。続編には登場しない。

Eureka　ネコ。覚えていない。

5. The Road to Oz

みんな大好きShaggy Manが出てくる。というかこのお話ではまともなのは彼くらい。
ここで出てくるButton-BrightやPolychromeは全く役に立たない。Button-Brightに至ってはI don't know以外しゃべっていないと思う。

Syaggy Man　けばだってるだけでまともなおじさん。安定感抜群。オズシリーズの良心。

Button-Bright　３～４歳くらいの男の子。すぐ迷子になる。I don't knowしか言わない。この話では全く役に立たないが続編で（人間的に）成長した姿が見られる。

Polychrome　虹の娘。踊りまくる。Button-Bright同様に役に立たない。彼女も続編で（人間的に）成長した姿が見られる。

6. The Emerald City of Oz

Nome Kingが攻め入ってくる話。作者としてはいったん終わりにしたかったようだ。

7. The Patchwork Girl of Oz

たぶん作者はほかのシリーズを作りたかったけど挫折してオズシリーズに戻ってきた。

Scraps　いわゆるPatchwork Girl。Crazyと言われることが多いが、オズシリーズの中ではまともな方。ひたすらポジティブ。

Ojo　Munchkinの少年。 Ojo the unluckyと呼ばれるが、そうでもない。

Uncle Nunkie　一つの単語しかしゃべらない。理由はわからないけど、とても好きなキャラ。

8. Tik-Tok of Oz

Tik-Tokはそんなに活躍しない。みんな大好きShaggy Manがお兄ちゃんを助けに行く。

Betsy Bobbin　女の子。

Hank　ラバ。超強気。

9. The Scarecrow of Oz

前半がものすごく地味で読むのがつらい。Button-Brightが成長して話が通じるようになっている。このへんのキャラは別の小説から持ってきたようだ。Scarecrowはそんなに活躍しない。いつも謙虚な彼が終盤に超強気で現れる。その割に無策。

Trot　女の子。

Cap'n Bill 　片足の船長。

Ork　鳥。しっぽがプロペラになっている。

10. Rinkitink in Oz

オズシリーズとはほとんど関係ない。たぶん別の話として作っていて、なんらかの理由でオズシリーズに組み込まれた。申し訳程度にノームキングが出てくる。

Inga　主人公の王子様。国を滅ぼされてひどい目に合う。

King Rinkitink　しゃれを言ってひたすら笑っている王様。英語学習者には笑いのツボが少し難しい。

Bilbil　ヤギ。口が悪いが本当はいいやつ。

11. The Lost Princess of Oz

Ozmaと魔法関連の道具が消えるてみんなで探しに行くというストーリー。各種チート道具を完封してオズ一味を手玉に取る悪役がいつになく強力。

Frogman　でかいカエル。知識人ぶっている。

Cayke the Cookie Maker　クッキー職人。フライパンをなくして探しに行く。珍しくまとも。

12. The Tin Woodman of Oz

　みんな大好きTin WoodmanとScarecrowが旅をするお話。前作最後でも少しだけこの2人の掛け合いが見られたが、今作では1冊たっぷり楽しめる。Polychromeが出てくるが、すっかり成長してまともになっている。

Woot　少年。珍しくバックグラウンドなどが一切説明されずにいきなり出てくる。

Captain Fyter　Tin Woodmanのそっくりさん。

Chopfyt　ニコイチの人。ろくでなしとして書かれている。

13. The Magic of Oz

ひみつの言葉を使った魔法をめぐるお話。悪役も駆け引きがあってなかなか楽しめる。

Kiki Aru　　Hyupの青年。お父さんのメモから魔法を習得

Bini Aru　　Kikiのお父さん。失われた先祖の魔法を解き明かす。

Ruggido　　元ノームキング。記憶を失ったりしてもやっぱり悪い人として再登場した。典型的な悪い人として作者も使いやすいのだろう。

14. Glinda of Oz

作者Baumさんの最後の作品。いつもチートなOzmaやGlindaが珍しくお手上げ。

Queen Coo-ee-oh　Skeezersの女王様　悪い人

Lady Aurex　Skeezersの良い人

Ervic　　Skeezersの良い人　頭がよく大活躍する

Su-dic　　Flatheadの王様　悪い人

Red Reera　パワフルYookoohoo　怪物というか魔法使いというか

15. The Royal Book of Oz 

ボームさんが亡くなり、Ruth Plumly Thompsonさんに交代した1作目
Family Tree(家系図)とScarecrowがぶら下がっていたBean PoleのTreeとかけている。こういった言葉遊びがノンネイティブにはわかりづらい。

 Sir Hokus of Pokes　騎士の人

Chang Wang Woe　Silver Islandの偉い人

Happy Toko　Silver Islandの元奴隷、Scarecrowと仲良し

Comfortable Camel　ラクダ Wish Roadで出会った。Karawan Bashiとよく言うが、調べても意味やニュアンスが分からない

Doubtful Dromedary　ヒトコブラクダ Wish Roadで出会った 

A-B-Sea Serpent　Scarecrowと川で出合った

Rattle Snake　Scarecrowと川で出合った

16. Kabumpo in Oz 

Pumperdinkという王国の王子様が象のKabumpoと一緒に嫁を探しに行く話。
作者の好みだと思うけど言葉遊びで辞書に載っていない単語が多いので英語学習者には厳しい。お話自体は前作より面白く、読みやすかった。

Pompadore　王子様。自分がお姫様と結婚しないと国をつぶすと脅されて大変。

Kabumpo　象さん。Elegant Elephantと言われる。

Wag　うさぎ。魔法の薬で大きくなる。子音を入れ替えてしゃべる。

Peg Amy　木の人形。魔法の薬で大きくなる。

Ruggedo　悪役として使いやすいのかすごくよく出てくるNome King。

Glegg　魔法使い。Glegg's Box of Mixed Magicという魔法入りの箱を作成。

The Runaway Country　島みたいなのがしゃべったり走ったりする。ついていけない。

17. The Cowardly Lion of Oz

Notta Bit More　主人公のピエロの人　

Bob Up (Bobby Downs)　孤児の男の子

Nickadoodle　unの国にいた鳥 魔法使い？

Crunch　岩人間　超問題児。

Mustafa　Mudgeの国の王様でトラ好き

18. Grampa in Oz 

洋書の登場人物

洋書の登場人物まとめ 

Kindleで無料もしくは低価格で買える洋書の登場人物をまとめていこうと思います。
読んでいてわからなくなってしまった人向け。
未読で事前情報を全く入れたくない人は避けてください。

(1) Too Many Crooks Spoil the Plot (A Ditie Brown Mystery) 
Sarah Osborne 著
https://www.amazon.co.jp/Too-Many-Crooks-Spoil-Plot/dp/1516108108

Mabel Brown (Ditie) 主人公。 小児科の医師。少しふくよか。
Tommy                   主人公の兄。弁護士。
Ellie                        主人公の幼馴染。美人。LucieとJasonの2人の子供をDitieに預けた。
Lurlean                   主人公の友人。美人。フランス語を織り交ぜて話す。
Mason Garret           探偵。本書の殺人事件を担当する。
Dan                        ボディーガード。Masonの友人。
Charie Flack            サンドラ社の新商品開発部をクビになった。
Marie  Vanderling     サンドラ社の情報通の人。Lurleanの友達。
Billy Joe                  サンドラ社の偉い人の孫。悪くて有名。
Schmiddy                警察の人。サイバー犯罪担当だけど殺された。
Victoria                   Ditieの上司。
Hermione                犬。
Majestic                  猫。
Kathleen                サンドラ社の偉い人の娘
Amy                      Masonの妻。癌で亡くなった。
ｘｘｘ                    主人公の元カレ。
Eddie                    Masonの母親。元警官。
Aunt Therese        Lurleanのおばさん？Ditieは名前を聞いたことがなかった。

(2) The Super-Secret Science Club: Case of the Disappearing Glass
S.C. Davis 著
https://www.amazon.co.jp/Super-Secret-Science-Club-Disappearing-Glass/dp/0997190507

Jenna                            主人公　女
Chase Ortiz                    大きい　男
Britt Schwartz                か弱い　女
Alexandra Carmichael      スポーツ得意　女
Ethan Webb                    頭良い　人気ない　New kid　男
Wesley Nguyen            　背が高い 黒い服 パンク お気に入り　男
Mr Gregory                    理科の先生
Alma Rossetti                Jennaの友達 NYから越してきた 　女
Miss Mason                    担任
Timmy                           Almaに席を取られた　男

WSHでクリップボードの内容をpptに貼り付け

 WSHでクリップボードの内容をpptに貼り付け

動作未確認です。

'sub pptpaste

    'On Error resume Next

    Dim objWshShell,PPTapp

    Set objWshShell =WScript.CreateObject("WScript.Shell")

    Set PPTapp=CreateObject("powerpoint.Application")

    'Activate PowerPoint Window

    objWshShell.AppActivate GetProcID("powerpoint.exe")

    'PPTapp.WindowState = 1

    PPTapp.visible=true

    Set PPTPre = PPTapp.ActivePresentation

    ' If there is no presentation, Open new presentation

    If Err.Number <> 0 Then

        Set PPTPre = PPTapp.Presentations.Add

        Set PPTsl = PPTPre.Slides.Add(1, 12)

        Err.Clear

    End If

    If PPTapp.ActiveWindow.Selection.Type = 1 Then

        PPTapp.ActiveWindow.WiewType = 1

        PPTapp.ActiveWindow.WiewType = 9

    End If

   

    now_slno = PPTapp.ActiveWindow.Selection.SlideRange.SlideIndex

   

    Set PPTsl = PPTPre.Slides(now_slno)

    PPTsl.Select

   

 '   Dim w, h

 '   w = PPTPre.PageSetup.Slidewidth

 '   h = PPTPre.PageSetup.SlideHeight

   

'    PPTsl.Shapes.PasteSpecial DataType:=2

     PPTsl.Shapes.Paste

   

    For m = 1 To 600 Step 1

        Wscript.sleep 10

        If PPTsl.Shapes.Count >= zu + 1 Then Exit For

        If m = 400 Then PPTapp.CommandBars.ExecuteMso "PastePicture"

        If m = 590 Then

            Set PPTapp = Nothing: Set PPTPre = Nothing: Set PPTsl = Nothing

            'GoTo myerr:

        End If

    Next

   

    zu = PPTsl.Shapes.Count

'    If PPTsl.Shapes(zu).Width > w - 40 Then PPTsl.Shapes(zu).Width = w - 10

'    If PPTsl.Shapes(zu).Height > h - 70 Then PPTsl.Shapes(zu).Height = h - 70

    PPTsl.Shapes(zu).Left = 4

    PPTsl.Shapes(zu).Top = 61

    If pgdown Then PPTPre.Slides(now_slno + 1).Select

   

   ' PPTapp.Activate

   Set PPTapp = Nothing: Set PPTPre = Nothing: Set PPTsl = Nothing

 '  Exit Sub

WScript.Quit

Function GetProcID(ProcessName)

    Dim Service

    Dim QfeSet

    Dim Qfe

    Dim intProcID

    Set Service = WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer

    Set QfeSet = Service.ExecQuery("Select * From Win32_Process Where Caption='"& ProcessName &"'")

    intProcID = 0

    For Each Qfe in QfeSet

        intProcID = Qfe.ProcessId

        Exit For

    Next

    GetProcID = intProcID

End Function

JScriptで指定範囲の画面キャプチャ

 Jscriptで指定範囲の画面キャプチャ

同じフォルダにMouseEmulator.dllと設定ファイルPSC1.txtが必要です。

「WSH JScriptを使いこなそう ～マウス操作～」様

http://jscript.zouri.jp/Source/MouseCtrl.html

処理用ファイル

mouse.js

excel = WScript.CreateObject("Excel.Application")

function psc(str)

{

    //API Command for Mouse Control

    var s1 ="rundll32.exe MouseEmulator.dll, _";

    var s2 ="@16";

    var c1 ="SetMouseXY";

    var c2 ="DownLeft";

    var c3 ="UpLeft";

    //Get current mouse position

    var ret = excel.ExecuteExcel4Macro( "CALL(\"user32\",\"GetMessagePos\",\"J\")" );

    var strHex = ("00000000" + ret.toString(16).toUpperCase()).slice(-8);

    var y = parseInt("0x" + strHex.slice(0, 4),16);

    var x = parseInt("0x" + strHex.slice(-4),16);

    //WScript.Echo(x + "_" + y);

    var buf =str.split(",");

    //Send PrintSCreenKey

    excel.ExecuteExcel4Macro( "CALL(\"user32\",\"keybd_event\",\"JJJJJ\",44,121,1,0)" );

    excel.ExecuteExcel4Macro( "CALL(\"user32\",\"keybd_event\",\"JJJJJ\",44,121,3,0)" );

   

    WScript.Sleep( 900 );

    // MouseDrug

    var sh = new ActiveXObject( "WScript.Shell" );

    sh.Run( s1 + c1 + s2 + " "  + buf[0] + "," + buf[1] );

    sh.Run( s1 + c1 + s2 + " "  + buf[0] + "," + buf[1] );  //call twice to avoid errors

    sh.Run(  s1 + c2 + s2);

    WScript.Sleep( 100 );

    sh.Run( s1 + c1 + s2 + " " + buf[2] + "," + buf[3] );

    sh.Run(  s1 + c3 + s2);

    WScript.Sleep( 100 );

    sh.Run( s1 + c1 + s2 + " " + x + "," + y);

    WScript.Sleep( 100 );

    //WScript.Echo( "終了" );

    sh = null;

}

実行ファイル

test.js

理由はわかりませんが、ダブルクリックで実行するとミスりやすいです。ファイルを選択しておいて、エンターキーで実行すると取りこぼしが少ないようです。

a='100,200,300,400'

eval(WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile("mouse.js", 1).ReadAll());

psc(a);

実行ファイル作成用

Set_psc.js

Pythonで画面切り取り

 PythonでPyAutoGUIを入れる方法

Pythonを使うのが初めてで、勘違いしていてうまくいかなかったのでメモ。

Pythonのシェルではなく、DOSプロンプトやPowerShellを使わないといけなかった。

(1)Pythonをインストールする

(2)インストールディレクトリ下に「Scripts」というフォルダがあり、その下にpip.exeがある。

(3)そのフォルダの何もないところを右クリック→「ターミナルで開く」

(4)Power Shellが開くので下記を入力してエンター

～\Programs\Python\Python310\Scripts> .\pip install pyautogui

　 * ￥は実際はバックスラッシュ

エラーが出ずに処理が進めば成功

このへんもインストールしてください。

> .\pip install pywin32

> .\pip install pillow

任意の名前.pyw (実行ファイル)

a="100,200,600,800"

exec(open("00_set_psc.pyw").read()); psc(a)

00_Set_PSC.pyw (メインのスクリプト)

使い方：

(1) Sin+Shift+Sで画面を切り取る

(2) 00_set_psc.pywを実行
　クリップボードの画像のスクリーン上での位置を読み取ります。
　失敗した場合は、手動で座標設定を行います。
　座標を含んだ実行ファイル(～.pyw)を保存します。

(3) 上で作成した実行ファイル(省略時は 01_new.pyw)を実行する
　指定範囲のキャプチャができます

00_set_psc.pyw

import io

import pyautogui

from PIL import ImageGrab, Image

from tkinter import messagebox

from tkinter import filedialog

import win32clipboard

def send_to_clipboard(clip_type, data):

    win32clipboard.OpenClipboard()

    win32clipboard.EmptyClipboard()

    win32clipboard.SetClipboardData(clip_type, data)

    win32clipboard.CloseClipboard()

def psc(a):

    xy = map(int,a.split(","))

    screen_shot = ImageGrab.grab(all_screens=True , bbox=((tuple(xy))))

    try:

        screen_shot.save('02_new.png')

    finally:

        output = io.BytesIO()

        screen_shot.convert('RGB').save(output, 'BMP')

        data = output.getvalue()[14:]

        output.close()

        send_to_clipboard(win32clipboard.CF_DIB, data)

def set_xy():

    msg1a = "Place the cursor at the **"

    msg1b = "** corner of the snipping area and press ENTER key."

    messagebox.showinfo("",  msg1a + "Upper Left" + msg1b)

    x1, y1 = pyautogui.position()

    messagebox.showinfo("", msg1a + "Lower Right" + msg1b)

    x2, y2 = pyautogui.position()

    return  ','.join(map(str,[x1,y1,x2,y2]))

def save_file(xy):

    # Save dialog

    filename = filedialog.asksaveasfilename(

        title = " x1,y1,x2,y2 = " + xy + " (If omitted, the script is saved as 01_new.pyw)",

        filetypes = [("pyw", ".pyw")],

        initialdir = "./",

        defaultextension = "pyw"

    )

    if filename == "":

        filename = "01_new.pyw"

    t1 =f"a='{xy}'\nexec(open('00_set_psc.pyw').read()); psc(a)"

    f = open(filename, 'w')

    f.write(t1)

    f.close()

def get_latest():

    img = ImageGrab.grabclipboard()

    if isinstance(img, Image.Image):

        # print(Save clipboard image to PNG file (not mandatory))

        img.save('02_new.png')

        # print(Serch image location on screen)

        p = pyautogui.locateOnScreen(img)

        # print(Retry in the relieved condition)

        if p==None:

            p = pyautogui.locateOnScreen(img,confidence=0.9)

        if p!=None:

            #print("case1: Success to find the location")

            xy = ','.join(map(str,[p.left,p.top,p.left+p.width,p.top+p.height]))

            save_file(xy)

        else:

            #print("case2: Fail to find the location")

            save_file(set_xy())

    else:

        #print("No image in the clipboard")

        save_file(set_xy())

# If script is executed by itself, execute get_latest()

#print(__file__)

if "00_set_psc" in __file__:

    get_latest()

PyautoGUIのLocateonScreenがマルチモニタに対応していないので対策しておきます。

Qiita：pyautoguiを【超適当に】マルチディスプレイ環境に対応させる Part1 Part2

https://qiita.com/kznSk2/items/a6833c095aec3b8ce72e

https://qiita.com/kznSk2/items/1c756eb4bee80c66233d

上記を参考に

C:\Users\(ユーザー名)\AppData\Local\Programs\Python\Python310\Lib\site-packages\pyscreeze\

__init__.py

を下記のように編集する

下記は必須

ImageGrabに引数all_screens=Trueを渡す

@requiresPillow

def _screenshot_win32(imageFilename=None, region=None):

    """

    TODO

    """

    # TODO - Use the winapi to get a screenshot, and compare performance with ImageGrab.grab()

    # https://stackoverflow.com/a/3586280/1893164

    im = ImageGrab.grab(all_screens=True)

プライマリモニタが左上の人は以下不要。セカンダリモニタがプライマリの左や上にある場合は下記も必要です。

最初のimportセクションで win32apiをインポート

try:

    from PIL import Image

    from PIL import ImageOps

    from PIL import ImageDraw

    if sys.platform == 'win32': # TODO - Pillow now supports ImageGrab on macOS.

        import win32api

        from PIL import ImageGrab

LocateonScreenの出力を編集

def locateOnScreen(image, minSearchTime=0, **kwargs): """TODO - rewrite this minSearchTime - amount of time in seconds to repeat taking screenshots and trying to locate a match. The default of 0 performs a single search. """ start = time.time() while True: try: screenshotIm = screenshot(region=None) # the locateAll() function must handle cropping to return accurate coordinates, so don't pass a region here. retVal = locate(image, screenshotIm, **kwargs) # ここから if not(retVal == None) and sys.platform == 'win32': displays = win32api.EnumDisplayMonitors() left_min = min([display[2][0] for display in displays]) top_min = min([display[2][1] for display in displays]) retVal = Box( left = retVal[0] + left_min, top = retVal[1] + top_min, width = retVal[2], height = retVal[3] ) # ここまで追加分 try:

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

設定用ファイルWSH版

セキュリティ的にも危ないし、そのうちデフォルト無効になってしまうと思いますが、一応載せておきます。

set.vbs

Set Excel = WScript.CreateObject("Excel.Application")

Dim fn, xy1, xy2, str1 , str2, fso

msgbox "カーソルをpoint1に合わせてエンターキーを押してください"

xy1 = API_GetMessagePos

fn = Inputbox( "カーソルをpoint2に合わせてエンターキーを押してください")

xy2 = API_GetMessagePos

str1= "a='" & xy1(0) & "," & xy1(1) & "," & xy2(0) & "," & xy2(1) & "'"

str2="exec(open('scr.py').read()); psc(a)"

If fn="" then fn ="03_new"

Set fso = CreateObject("Scripting.FileSystemObject")

Set tso = fso.CreateTextFile(fn & ".pyw", true)

tso.Write(str1 & vbcrlf & str2)

tso.Close

Function API_GetMessagePos()

    Dim ret, strHex, x, y

    Dim strFunction

    Const API_STRING = "CALL(""user32"",""GetMessagePos"",""J"")"

    strFunction = API_STRING

    ret = Excel.ExecuteExcel4Macro(strFunction)

    strHex = Right("00000000" & Hex(ret), 8)

    x = CLng("&H" & Right(strHex, 4))

    y = CLng("&H" &  Left(strHex, 4))

    API_GetMessagePos = Array(x, y)

End Function

=====以下作業時のメモ========

エクセルを前面に出してクリップボードから貼り付け、サイズと位置変更

import win32gui

import win32com.client

def excel_paste(a):

    xy = a.split(",")

    # Activate Excel

    memoapp = win32gui.FindWindow(None,'Excel')

    win32gui.SetForegroundWindow(memoapp)

    # set Excel application

    xl_app = win32com.client.GetObject(Class='Excel.Application')

    xl_app.Visible = True

    # Paste

    active_sheet = xl_app.ActiveSheet

    active_sheet.Paste()

    Sh = xl_app.ActiveSheet.Shapes(active_sheet.Shapes.Count)

    #change size

    Sh.Left = xy[0]

    Sh.Top = xy[1]

    Sh.Width = xy[2]

PowerPointを前面に出して貼り付け、位置変更（動作未確認）

import win32gui

import win32com.client

def ppt_paste(a):

    xy = a.split(",")

    # Activate ppt

    memoapp = win32gui.FindWindow(None,'PowerPoint')

    win32gui.SetForegroundWindow(memoapp)

    # set power point application

    pp_app = win32com.client.GetObject(Class='PowerPoint.Application')

    pp_app.Visible = True

    # If Slide index pain is selected

    if (pp_app.ActiveWindow.Selection.Type == 1):

        pp_app.ActiveWindow.WiewType = 1

        pp_app.ActiveWindow.WiewType = 9

    # get current slide number

    now_slno = pp_app.ActiveWindow.Selection.SlideRange.SlideIndex

    sld = pp_app.ActiveWindow.Slides(now_slno)

    # paste

    sld.Paste()

    #change size

    Sh = sld.Shapes(sld.Shapes.Count)

    Sh.Left = xy[0]

    Sh.Top = xy[1]

    Sh.Width = xy[2]

paste.pyw (実行ファイル)

a="100,200,400"

exec(open("scr.py").read()); ppt_paste(a)