'EXCELのセルの範囲から画像オブジェクトを見つけ出す Dim w_shapename As String = GetShapeName(pxlSheets, sheetix, row1, column1, row2, column2) If w_shapename = String.Empty Then Exit Function. 名前または番号でインデックスが付けられたスライドの既存の図形を取得するReturn an existing shape on a slide, indexed by name or number. マクロ、VBAを使わない一般操作でExcelシートの表や図を保存することができますが、ここではVBAを使って一部自動化したマクロを紹介します。 (上記がプログラム実行結果で、画像となったファイルの上階層がエクスプローラーで表示されます) スライドのスライド タイトルおよび他のプレースホルダーを取得するReturn the slide title and other placeholders on a slide. エクセルVBAで、オートシェイプや画像などを操作するための第一歩として、Shapeオブジェクトのご紹介をしています。Shapeオブジェクトを使えば、画像をシートに追加したり、移動、コピー、削除などの操作ができるようになりますよ。 ブログ記事で図を作成する際には、毎回 Powerpoint を使って編集しています。毎回同じ作業をすることになるので、作業時間の短縮をする工夫を日々考えています。Powerpoint アプリをショートカット … ちなみに、挿入した画像を、手動で移動する操作をマクロ記録すると、次のようなコードが記録されます。 Sub Macro3() ActiveSheet.Shapes.Range(Array("Picture 1")).Select Selection.ShapeRange.IncrementLeft 74.25 Selection.ShapeRange.IncrementTop 35.25 End Sub … ホームタブ→貼り付け→形式を選択して貼り付け を選択して、図（拡張メタファイル）でOKを押します。 5. ファイル→名前を付けて保存 でダイアログを開きます。 6. こんにちは！ マクロVBAで、オートシェイプ（図形）を扱う場合の解説です。オートシェイプ（図形）はShapeオブジェクトであり、ShapeオブジェクトのコレクションがShapesコレクションになります。Shapeオブジェクトは、多くのオブジェクトをメンバーに持った複雑なオブジェクトとなっています。 素敵なお話ありがとうございます！ 図形処理がとっても捗りそうです！！, 今後もいくつか画像の操作について記事にできればと思っていますので、お役に立てれば嬉しいです！, Shapeオブジェクト.AlternstiveText Excel VBAで選択範囲をJPEG形式で保存するには下記の流れになります。 1）ファイル保存ダイアログを表示し、保存ファイル名を設定します。 2）選択範囲を画像形式でコピー これは、[Shift]キー＋編集メニューの「図のコピー」と同じです。 Shape オブジェクトは、 Shapes コレクションのメンバーです。The Shape object is a member of the Shapes collection. ホームタブ→コピー→図としてコピー を選択します。 3. Copyright © 2015-2020 いつも隣にITのお仕事 All Rights Reserved. 原寸で表示. 2. エクセルVBAで画像やオートシェイプなどを操作するShapeオブジェクトのはじめの一歩, エクセルVBAで大量の画像をまとめてシートに貼り付けるAddPictureメソッドの使い方, VBAやGoogle Apps Scriptのツール開発と研修をセットで依頼される企業が増えている理由, Picture 24 「氷で冷えたトマト氷で冷えたトマト」のフリー写真素材を拡大. vbaを使えば、各シートに貼られたの複数のグラフを画像化して自動で保存することができます。今回はvbaでグラフを画像として保存する方法をご紹介します。 エクセルで図形やオートシェイプを扱っていますか？VBAで複数の図形・オートシェイプを選択するにはどのようにすればよいのでしょうか？今回は、VBAで複数の図形・オートシェイプをする方法を徹底的に説明していきます。図形・オートシェイプ（Shap あと、新規ブックで「Book1」のままになっているような未保存のブックも保存先が確定していないため、処理をしないようにしています。 ズームを100%にしているのは、Chart.Exportメソッドを実行する際の画像サイズに影響するためです。 Excelで図形や画像を組み合わせたものを画像として保存したい場合があります。解決策はいろいろありますが、流用性を考えてVBAでの解決方法を紹介します。 図形（Shape）を構成するオブジェクトには、以下のものがあります。Shapesコレクション…Shapeオブジェクトのコレクション Shapeオブジェクト…オートシェイプ、OLEオブジェクト、ピクチャなど、描画レイヤーのオブジェクトを表します。 図形を表すShape【ｼｪｲﾌﾟ】オブジェクトには画像として書き出しする仕組みはありません。 そこで、グラフを表すChart【ﾁｬｰﾄ】オブジェクトのExport【ﾁｬｰﾄｴｸｽﾎﾟｰﾄ】メソッドを利用して図を画像として書き出します。, 空のグラフを作成して、そのグラフエリアに図を貼付けてChart【ﾁｬｰﾄ】オブジェクトのExport【ﾁｬｰﾄｴｸｽﾎﾟｰﾄ】メソッドで画像として書き出します。, グラフを画像ファイルとして書き出すには、Chart【ﾁｬｰﾄ】オブジェクトのExport【ﾁｬｰﾄｴｸｽﾎﾟｰﾄ】メソッドを使用します。, []内は省略可 オブジェクト.Export(Filename, [FilterName], [Interactive]), ※図を作成したエクセルファイルの標準モジュールに下記のコードを張りつけてマクロを実行してください。エクセルファイルと同じパス（場所）にpngファイル(透過画像)が作成されます。, 4行目【With Application.FileDialog(msoFileDialogSaveAs)】 Application【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのFileDialog【ﾌｧｲﾙﾀﾞｲｱﾛｸﾞ】オブジェクトを使用して 引数のtypeを名前を付けて保存ダイアログに指定して、With【ｳｨｽﾞ】ステートメントで指定します。, 5行目【.InitialFileName = ThisWorkbook.Path & “¥”】 With【ｳｨｽﾞ】ステートメントで指定したFileDialogオブジェクトに対してInitialFileName【ｲﾆｼｬﾙﾌｧｲﾙﾈｰﾑ】プロパティで 保存ダイアログに初めに表示される保存パス(場所)を設定します。ThisWorkbookオブジェクトのPath【ﾊﾟｽ】プロパティでこのプロシージャが記述されているブックの場所に設定します。, 6行目【.FilterIndex = 2】 With【ｳｨｽﾞ】ステートメントで指定したFileDialogオブジェクトに対してFilterIndex【ﾌｧｲﾙｲﾝﾃﾞｸｽ】プロパティで 保存ダイアログに初めに表示されるファイル保存形式を2の「エクセル マクロ有効ブック(*xlsm)」に設定しています。, 7行目【If .Show = -1 Then .Execute】 With【ｳｨｽﾞ】ステートメントで指定したFileDialogオブジェクトに対してIf文(条件分岐)でShow【ｼｮｳ】メソッドが-1だったら、つまりダイアログのアクションボタンがクリックされたらExecute【ｴｸｽｷｭｰﾄ】メソッドでアクションを実行するを定義します。, 9行目【With ThisWorkbook.Sheets(1)】 ThisWorkbook【ﾃﾞｨｽﾜｰｸﾌﾞｯｸ】プロパティで参照したこのプロシージャが記述されているブックを表すThisWorkbook【ﾃﾞｨｽﾜｰｸﾌﾞｯｸ】オブジェクトのSheets【ｼｰﾂ】プロパティで参照したインデックス番号1のシートをWith【ｳｨｽ】ステートメントで指定します。, 10行目【.Activate】 With【ｳｨｽ】ステートメントで指定した上記のシートに対してWorksheet【ﾜｰｸｼｰﾄ】オブジェクトのActivate【ｱｸﾃｨﾍﾞｲﾄ】メソッドでそのシートをアクティブにします。, 11行目【With .Shapes】 Withステートメントで指定した上記のシートの図の集まりを表すShapes【ｼｪｲﾌﾟｽ】コレクションをWith【ｳｨｽﾞ】ステートメントで指定します。, 12行目【If .Count >= 2 Then】 If【ｲﾌ】ステートメントを使用しで条件分岐をします。条件式としてWith【ｳｨｽﾞ】ステートメントで指定した図形の集まりを表すShapes【ｼｪｲﾌﾟｽ】コレクションのCount【ｶｳﾝﾄ】メソッドを使用してジート内の図の数を取得して、比較演算子「>=」 を使用してシート内の図形の数が2個以上の場合を定義します。, 13行目【.SelectAll】 シートに図が2個以上ある場合Shapes【ｼｪｲﾌﾟｽ】コレクションのSelectAll【ｾﾚｸﾄｵｰﾙ】メソッドですべての図を選択状態にします。, 14行目【Selection.Group.Name = “ロゴ”】 選択されている図をGroup【ｸﾞﾙｰﾌﾟ】メソッドでグループ化しName【ﾈｰﾑ】プロパティで「ロゴ」という名前に設定します。, 15～17行目 【Else .SelectAll Selection.Name = “ロゴ”】 Else【ｴﾙｽﾞ】ステートメントで条件に一致しなかった場合、つまりシートに図が1個しかない場合を定義します。図が1個しかない場合はグループ化のメソッドを実行するとエラーになるのでグループ化をしないで、図に「ロゴ」という名前を付けます。, 21行目【With ActiveSheet.Shapes(“ロゴ”)】 上記で作成したロゴと名前を付けた図をShapes【ｼｪｲﾌﾟｽ】プロパティで参照してWith【ｳｨｽﾞ】ステートメントで指定します。, 22行目【 .CopyPicture】 With【ｳｨｽﾞ】ステートメントで指定した図を表すShape【ｼｪｲﾌﾟ】オブジェクトの CopyPicture【ｺﾋﾟｰﾋﾟｸﾁｬｰ】メソッドで作成した図を図としてコピーします。, 23行目【ActiveSheet.ChartObjects.Add(0, 0, .Width, .Height).Name = “貼付用”】Worksheet【ﾜｰｸｼｰﾄ】オブジェクトの埋め込みグラフを表すChartObjects【ﾁｬｰﾄｵﾌﾞｼﾞｪｸﾂ】オブジェクトのAdd【ｱﾄﾞ】 メソッドで埋め込みグラフシートを作成します。引数は(ｼｰﾄ左位置,上位置,ｼｰﾄ幅,高さ)、ここでは（0,0,Shapesの幅,Shapesの高さ）で指定しています。最後にName【ﾈｰﾑ】プロパティでこの埋め込みグラフの名前を「貼付用」に指定しています。, 25行目～28行目 【With ActiveSheet.ChartObjects(“貼付用”) .Chart.PlotArea.Fill.Visible = msoFalse .Chart.ChartArea.Fill.Visible = msoFalse .Chart.ChartArea.Border.LineStyle = 0】 埋め込みグラフを表すChartObjects【ﾁｬｰﾄｵﾌﾞｼﾞｪｸﾂ】自体を透明設定します。, 30行目【Application.OnTime Now + TimeValue(“00:00:03”), “sample2″】ChartObjects【ﾁｬｰﾄｵﾌﾞｼﾞｪｸﾂ】を作成直後の画像の貼付けが失敗する可能性があるので指定された時刻 にプロシージャを実行するApplication【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのOnTime【ｵﾝﾀｲﾑ】 メソッドでNow + TimeValue(“00:00:03”)現在の時刻から3秒まって次のsample2プロシージャ―に実行を移しています。, 32行目【Private Sub sample2()】 Private Sub【ﾌﾟﾗｲﾍﾞｰﾄｻﾌﾞ】プロシージャにして30行目のOnTimeメソッドからしか、プロシージャを呼び出せないようにします。, 33行目【With ActiveSheet.ChartObjects(“貼付用”)】 With【ｳｨｽﾞ】ステートメントでChartObjects(“貼付用”)を指定します。, 34行目【.Chart.Paste】 With【ｳｨｽﾞ】ステートメントで指定されたChartObjects(“貼付用”)に22行目でコピーしてクリップボード保存した図をChart【ﾁｬｰﾄ】オブジェクトのPaste【ﾍﾟｰｽﾄ】メソッドを使用して貼り付けます。, 35行目【 .Chart.Export ThisWorkbook.Path & “¥ロゴ.png”】 グラフを画像として書き出すChart.Export【ﾁｬｰﾄｴｸｽﾎﾟｰﾄ】メソッドで、このブックのパスにロゴ.pngでpng形式の画像ファイルとして書き出します。, 36行目【.Delete】 DeleteメソッドでWith【ｳｨｽﾞ】ステートメントで指定したChartObjects(“貼付用”)を削除します。, 37行目【 MsgBox ThisWorkbook.Path & “にpngファイルを出力しました。”】 ファイルの書き出しができたことをメッセージボックスで伝えます。, 以上で、シェイプやワードアートで作成した図を透過画像で書き出す方法の解説を終了します。 ありがとうございました。, 4行目【With Application.FileDialog(msoFileDialogSaveAs)】, 5行目【.InitialFileName = ThisWorkbook.Path & “¥”】, 23行目【ActiveSheet.ChartObjects.Add(0, 0, .Width, .Height).Name = “貼付用”】, 30行目【Application.OnTime Now + TimeValue(“00:00:03”), “sample2″】, 33行目【With ActiveSheet.ChartObjects(“貼付用”)】, 35行目【 .Chart.Export ThisWorkbook.Path & “¥ロゴ.png”】. Imageプロパティに関連づけられたピクチャは、元の形式にかかわらず常にビットマップ形式で保存されます。 サンプル. セルに表示されている内容をそのまま画像としたい場合があります。 他の資料の材料としたい場合などですね。 Excelでの操作は以下の手順になります。 1. pxlSheets(sheetix).Shapes(w_shapename).Select() Excel VBAでシート上にある図形（図 1）を画像として保存するコードを教えてください。 知識がないので可能か分かりませんが、出来るのなら保存先は、このExcelブックがあるフォルダ内にお願いします。 ご教授お願いします。 お世話になります。エクセルのVBAでクリップボードにコピーした画像をpng(or jpg or bmp)ファイル保存したいのですが、プログラム方法がわかりません。勝手で申し訳ございませんが、以下の条件で実現する方法をご存知の方教えて頂ければ VBAを利用し、Excelのセル範囲を画像で保存（PNG）を行っております。 Office2013環境では問題なく動作するのですが、2016では動作の一部に問題が発生しております。 発生している問題：排出画像が真っ白になる. ShapeオブジェクトのAddPictureメソッドの第6引数(幅)と第7引数(高さ)にそれぞれ-1をセットすることで画像ファイルの原寸サイズのイメージになります。. 図として保存を実行するPowerPoint VBAのサンプルコード 以下のコードを実行すると、アクティブなプレゼンテーションの1枚目のスライドの、1つ目のShapeが、「c:\tmp\」フォルダーに「SAMP.png」として保存されます。 Excel内に挿入された画像をPCに保存して別の用途で使いたい場合、どのように保存していますか？ 画像を1枚ずつ右クリックから [ コピー ] してWindows標準ソフトのペイントに貼り付けて…ってやっていませんか？ このやり方だと、画像 ※Excel2003VBAですオートシェイプを画像ファイル(BMP,PNG,jpgなど)のファイルに保存するVBAを探しています。そもそもExcelの通常作業でも出来ないのでマクロの記録も出来ません。サイトでもよいので教えていただけますか。こんにちは。オ 次の例は、UserForm1に画像ファイルを読み込み、それをC:\Test.Bmpとして保存します。サンプルでは、C:\Windows\雲.bmpが存在するものとします。 スライドに新しく作成した図形を取得するReturn a newly created shape on a slide. Microsoft Excel 2010になってから急に仕様が変わったのか、Picture.Insertでエクセル上に画像を貼るマクロを実行したらリンクが付くようになった不具合的現象に対する対策法（コード）を紹介します。ま … エクセルVBAで請求書や発注書などを作っているとき、会社のロゴや印章を表示させたいな…なんてことありますよね。, ボタンやオートシェイプをVBAで表示/非表示にしたり、表示する場所を指定できたら…ということもありますよね。, または、図形をシートに沢山、上下の位置もそろえて表示したい…でも手で一つ一つの図形の位置を調整するのも大変…なんてこともあるかもしれません。, 今回は、そんなエクセルの画像をVBAで操作するための第一歩として、Shapeオブジェクトととは何か？また、Shapeオブジェクトとして操作できるモノの種類を調べた結果をご紹介します！, エクセルVBAでシート上の図形を操作する時に使用するのが、Shapeオブジェクトです。, Shapeオブジェクトで図形などの操作や情報の取得をするには、このように記述します。, Shapeオブジェクトで操作できる図形その他を調べるために、エクセルのシートにオートシェイプやアイコン、蛍光ペンで描画したものや画像、グラフなどを張り付けたものを用意しました。, Shapeオブジェクトで図形の情報が取得できる=Shapeオブジェクトで操作できるモノ、ということで、この色々な図形などの情報を、Shapeオブジェクトを使って取得してみましょう。, さて、画像や図形の情報を、Debug.printを使ってイミディエイトウインドウに表示してみましょう。, Debug.printについてはこちらの記事で説明されていますので、併せてご覧ください。, 先にお見せした図形や画像の説明には、種類(オートシェイプやグラフなど)を記入してあります。, 今回は、Shapeオブジェクトのプロパティを使って、この説明に記入してあるテキストを取得してみようというわけです。, 取得できれば、その画像や図形はShapeオブジェクトで操作できるということですね。, この名前というのは、人間がつけたものではなく、エクセルが内部で自動的につけてくれる名前を指します。, では、これらのプロパティでShapeオブジェクトの説明を取得して、イミディエイトウインドウに表示してみましょう。, 「シートにある図形などのうち、Shapeオブジェクトの情報をイミディエイトウインドウに表示する」というコードです。, イミディエイトウインドウにシート上にある全ての図形などの「名前」と「説明」が表示されていますね。, つまり、先にお見せしたシートに張り付けた図形その他は全てShapeオブジェクトで操作ができる、ということになります。, なんだか面白味のない結果になってしまいましたが、グラフや蛍光ペンで描画したものもShapeオブジェクトで操作できるのは私にとっても発見でした。, 今回は、エクセルVBAで図形などを操作するための第一歩として、ShapeオブジェクトとShapeオブジェクトで操作ができるモノの一例をお見せしました。, 大体の帳票やエクセルツールで使うような図形やグラフなら、このShapeオブジェクトで操作ができそうですね。, また、「これってShapeオブジェクトで操作できるものなのかな？」というものがあれば、今回ご紹介したコードを実行してみると、Shapeオブジェクトなのかどうなのかを確認することができますよ。, 次回は同じくこのShapeオブジェクトを使って、フォルダに格納している画像ファイルをシートに追加する方法をご紹介していきます。, ノンプログラマーがプログラミングスキルを身に着ける支援ををするコミュニティ。セミナー・もくもく会・Facebookグループのサポートで「自らで学び続ける力をつける」支援、「教え合うことで学びの価値を上げる」場の提供をしています。, こんにちは！ 4. 3. これの解決方法をご教示ください。 選択範囲内の図形を取得するReturn a shape within the selection. 指定したセル範囲を画像としてコピーし、クリップボードに保存するには、Range【ﾚﾝｼﾞ】オブジェクトのCopyPicture【ｺﾋﾟｰﾋﾟｸﾁｬｰ】メソッドを使用します。 画像化したいセル範囲を選択します。 2. 図のコピーダイアログで、画面に合わせる、ピクチャを選択してOKを押します。 4. Excelを使う際に、一つのシート上に表や図形・オートシェイプを混在させることは少なくないです。その際に、図形だけを一時的に消したい場合があります。そのとき図形を削除するのではなく、図形の表示・非表示を切り替えることができれば便利ですよね。 Shapes コレクションには、ブックのすべての図形が含まれます。The Shapescollection contains all the shapes in a workbook. エクセルVBAのShapeオブジェクトについて解説しています。VBAの基礎から応用まで幅広くまとめている初心者向けVBA入門サイト。 ShapesオブジェクトのAddPictureメソッドで、エクセルのシート上に画像を追加する方法をご紹介しています。画像のサイズや位置が決まっている場合、手動で調整するのは手間なもの。エクセルVBAで位置やサイズを指定しておけば、面倒な調整が不要になりますよ。 初めましてエクセルVBAでバーコートが使いたくMicrosoft Barcode Control 16.0を使用しておりますACTIVEXコントロートとして挿入することはできておりますきちんとリンクセルの値になっていますセルの値下記=埋め込み("BARCODE 下記コードでは、読み込んだ画像を原寸サイズのままshp変数に保存しています。. 今後とも当ブログをよろしくお願い致します。, 今回はエクセルVBAでイミディエイトウィンドウを使う方法の超基本として、初心者のうちからぜひとも知っておいて欲しいDebug.Printの使い方です。一行に複数の出力をする方法も解説していますよ。, さて、シートに張り付けた図形などのうち、Shapeオブジェクトで操作できるものの情報を取得するために、下記コードを用意してみました。, エクセルVBAで画像ファイルをシートに追加するAddPictureメソッドの使い方, ShapesオブジェクトのAddPictureメソッドで、エクセルのシート上に画像を追加する方法をご紹介しています。画像のサイズや位置が決まっている場合、手動で調整するのは手間なもの。エクセルVBAで位置やサイズを指定しておけば、面倒な調整が不要になりますよ。, エクセルVBAで請求データ一覧から請求書を作る初心者向けのシリーズです。今回は、エクセルVBAでワークシートのデータのある範囲だけを取得するUsedRangeプロパティの使いかtあについてお伝えします。, オンライン学習サービス「LinkedInラーニング／Lynda.com日本版」にて、私がトレーナーを務めました「Excel VBA 基本講座」が公開されました。その紹介とともに、動画制作をやってみた感想をお伝えします。, Outlook VBAで、Moveメソッドを使った今開いているメールをワンクリックで指定のフォルダへ移動する方法をご紹介しています。移動させたいメールを、移動先のフォルダへドラッグ＆ドロップ…なんてしなくても、この方法ならワンクリックで移動させることができますよ。, 「初心者でもわかるエクセルVBAのクラスモジュール」についてシリーズでお伝えしています。今回は、エクセルVBAでクラスのインスタンス生成時にデータを簡単に格納する、つまりコンストラクタ的なメソッドを作る方法です。, エクセルの便利機能、ユーザーフォームの作り方と使い方を、連載記事でご紹介しています。今回は、ユーザーフォームにラベルやテキストボックスといったコントロールを追加する方法と、作成したユーザーフォームをワークシートから呼び出す方法をご紹介しています。, 過去のデータから予測値を求めるために、エクセルのデータ分析アドインを使って回帰分析をする方法についてお伝えします。アドインの追加の方法、回帰分析とは何か、回帰分析表の見方などについて解説しています。, 非エンジニアのWindows派がPythonを始めるメリットをこれでもかと説明します, 当ブログを「応援したい！」「役に立ったよ！」というお気持ちを、コチラからお支払いただくことができます。, 「詳解！Google Apps Script完全入門[第2版]」発売記念！都内の大型書店行脚レポート, 本日発売「詳解！GoogleAppsScript完全入門[第２版]」のあとがきを全文無料公開, 「詳解！GoogleAppsScript完全入門[第２版]」の改訂作業にかかった時間と苦労. [画像を開く]ボタンでPictureBoxに表示する画像を選択し、 [画像を保存]ボタンでPictureBoxに表示されている画像を保存します。 ってプロパティ名のつづり間違っていませんか？, shimさま 一方「.Shapes.AddPicture」で画像を貼り付けた後でなら取得できる事がわかりました。 だったら「最初に画像を貼り付けてしまい、あとで回転有無を確認しながらサイズを修正」するしかない、というのが今回の内容です。 次の使用例は、次の方法を示しています。The following examples describe how to: 1. ファ … シェイプやワードアートで作成した図を透過画像ファイル(PNG)で書き出す方法図形を表すShape【ｼｪｲﾌﾟ】オブジェクトには画像として書き出しする仕組みはありません。そこで、グラフを表すChart【ﾁｬｰﾄ】オブジェクトのExport【ﾁ ご指摘ありがとうございます。記事を修正させていただきました。 5.
カレー じゃがいもなし とろみ,
常磐線 時刻表 仙台,
プロスピ 球種 多い,
ハイエース 5ナンバー キット,
は ま けい 能見台店 メニュー,
積立nisa 40万 使い切るべきか,
映画 年間 制作本数,
Word ルビ 一括削除 できない,
恋人たち 映画 動画,
映画 ネタバレ 怒り,
Mac 暗号化 解除,
飛行機 座席 おすすめ 国際線,
ニュース テロップ 作り方,
経営企画 Cfo 違い,
京浜 東北 線上 り 下り,
事故物件 賃貸 埼玉,
浜崎あゆみ そろ ー ず,
脱出ゲーム 簡単 子供,
人魚 映画 アメリカ,
アルファベット 大文字 小文字 カード,
レポート デザイン おしゃれ,
漢字 海外の反応 中国,
Word ショートカットキー 一覧,
歯科衛生士 院長 嫌い,
英語 上達 ユーチューブ,