ブログ レンタルサーバー

2021/8/1

初心者向けレンタルサーバーを選ぶなら!ロリポップorXSERVER?

初心者向けのレンタルサーバーを選定する上で人気のレンタルサーバー「ロリポップ」と「XSERVER」。   悩む女性1 でも、どっちを選んだらいいの? 以外とわからない方も多いかと思います。 そこで、ロリポップとXSERVERのどちらを選んぶとよいのか。その比較ポイント・レンタルサーバーの選び方についてその実体験をもとに解説していきましょう。   但し、初心者向けと言えども、本気でブログやサイトを立ち上げたい方向けです。 検索エンジン最適化(SEO)戦略向けに上位表示。人に見られるサイト ...

ReadMore

プログラミング

2021/7/29

Power BIとは?利用用途・メリット・デメリットを徹底解説

業務を最大限効率化したり、ビッグデータを取り扱う際に効果的な方策の一つに「Power BI」というツールがあります。 しかし、その利用用途や利用メリットやデメリットを知らない方も少なくありません。 そこで本章では、このPower BIの利用用途やメリット・デメリットについて詳しく解説していきます。   目次1 Power BIとは1.1 Power BIでできること2 Power BIの種類3 ExcelでできなくてPower BIでできること4 Power BIの利用するメリット・デメリット4 ...

ReadMore

チャーガ 健康法・ケア

2021/7/28

チャーガに含むβグルカン!高免疫力・高癌抑制効果おすすめサプリ5選

高免疫力や癌の抑制効果、ダイエット効果など、様々な健康効果が期待され、国内需要が高まってきているチャーガ(カバノアナタケ)茶。   しかし、癌抑制効果が高いのはチャーガなどのお茶だけではないことをご存じでしたか。 癌が治るとされているチャーガにはβグルカンという成分が含まれており、この成分にその癌抑制効果や健康効果が高く、需要がいっそう拡大してきています。   そこで、品質は当然のこと、そのチャーガのみならず、このβグルカンを多く含む癌抑制効果や健康効果の高いサプリメントを厳選してご紹 ...

ReadMore

エクセル関数 プログラミング

2021/7/26

【初心者向け】Power BIおすすめ教本5選!使い方が手軽に分かる

  データサイエンティストが利用されると言われる「Power BI」。しかし、その機能や使い方も知らない方も多いのが実情です。 そこで、Power BIの機能性や利用メリットなどを理解するためにはどんな教本がおすすめなのか、初心者でもわかりやすいおすすめ教本5つ厳選してご紹介していきます。   目次1 Power Biを購入する前に知っておきたい3つのポイント2 Power Biを始める際の教本の選定ポイントは?3 Power BIの使い方が初心者でも基礎からわかる!おすすめ教本ランキ ...

ReadMore

映画 洋画

2021/7/15

海外映画『トゥモロー・ウォー』フル動画を無料視聴するならこれ一択!おすすめの視聴方法とは

最新人気映画「トゥモロー・ウォー」。海外のフル動画で見たり、無料視聴する方法にはあらゆる視聴方法が普及してきています。 そんな中でも、こんな悩み。 悩む女性1 海外映画無料視聴したい。 映画が今すぐ見たい。 借りに行くのが面倒くさい。 簡単にフル動画をみたい。   そんな海外映画を見て、有意義なひと時を過ごしたい。そんなふうに感じる事もあるかと思います。そこで、海外映画を無料視聴する方法やフル動画を見る方法があるのか。そんな悩みについて解説していきましょう! 管理者   また海外映画を ...

ReadMore

テレワーク 生活情報

2021/7/28

テレワーク業務効率10倍UP!コスパ最強おすすめ便利グッズ8選

  COVID19の影響に伴って加速する「テレワーク・在宅勤務」。   悩む女性1 しかし、実際に自宅で仕事をしてみると、案外仕事ができる環境じゃなくて、仕事が捗らない! そこで、このテレワークで充実した仕事ができるような環境を整備することも非常に大切です。 私もテレワークは、とても小さい椅子と縦長の狭い机でパソコン2台を使って作業をしていたので、非常にやりづらさを感じていました。   そこで、心機一転テレワーク環境を整備するためにデスクやチェア、PCガジェットを購入して、非 ...

ReadMore

AFFINGER6 Wordpress

2021/7/12

【AFFINGER6】購入者限定10大特典付き!初心者向けおすすめアイコン・戦略あり

当サイトからAFFINGER6(ACTION)をご購入頂いた方のために、当サイトでしか受け取れない購入者限定特典をお付けして、皆様のブログ運営を全力でサポートさせて頂きます。 またそれ以外にも、ブログで大切なことはいったいなんなのか、その根源を教える内容を盛り込んでご紹介していこうと思います。   目次1 「AFFINGER6(ACTION)」について2 購入する前に「AFFINGER6」の魅力を知ろう!3 AFFINGER6-当サイト限定10購入者特典について3.1 AFFINGER6当サイト ...

ReadMore

AFFINGER6 Wordpress

2021/7/12

AFFINGER6(ACTION)の購入メリット・デメリットを徹底解説【特典あり】

有料のWordpressテーマを選ぶなら「AFFINGER6(ACTION)」が絶対におすすめです。   悩む女性1いったいどうしてAFFINGER6がおすすめなの? 実際に無料のテーマと有料のテーマを利用した私が実体験を元にそのおすすめの理由とメリット・デメリット、そして詳細の機能について実体験に基づいてレビューしました。 管理者   ぜひ皆様の参考になれば幸いです。   目次1 有料Wordpressテーマ「AFFINGER6(ACTION)」を利用すべきおすすめ理由3つ ...

ReadMore

ママが得する!富士山の玄武岩層・地下約200メートルから汲み上げた大人気ウォーターサーバー

Excel-VBA プログラミング

【VBA】PowerPointの表・テキストを操作しよう(データセット・背景色・フォント)

今人気沸騰中!テレワーク低糖質ダイエット商品

 

悩むサラリーマン1

VBAでパワーポイントにデータを転記したい。

そんな悩みにお答えして、今回は、

 

  • 「表やテキスト」にデータをセットする方法
  • 表の背景色を表示する方法
  • フォント色を表示する方法

 

VBAでパワーポイントを操作する方法について上記3つについて解説していきましょう。

 

最初にパワーポイントの項目名称をセットしよう!

パワーポイントにデータをセットするときにまず最初に行うべきことがあります。それは。。。

パワーポイントにデータをセットする際に大切なこと

 

・項目名を付ける

家と同じで住所がないと郵便が届きませんよね。それと同じで、1つ1つのテキストや表に項目名を付けてあげましょう。

これで、データをセットすることができます。

 

項目名の付け方

項目名の付け方は下記を参考にしましょう。

上の図のように、

■「検索と選択Tab」

この項目から、テキストやグラフの名前をセットすることができます。

 

パワーポイントにデータをセットする方法

次に表内の各項目にデータをセットしていましょう。

テキストにデータをセットする方法

'|==========================================================================================
'| 定義 : パワーポイントにテキストにセットする。
'|------------------------------------------------------------------------------------------
'| PG名 : Main()
'|------------------------------------------------------------------------------------------
'| 説明 : ピボットテーブルのOPEN_itemの情報をPPTに移行する。
'|------------------------------------------------------------------------------------------
'|作成日 : 2014/11/16
'|作成者 :  miyata
'|==========================================================================================
Sub Main()
'PPtアプリ起動用変数

Dim mySlide As Object 'PowerPointスライド
Dim strName As String 'シェイプ名
Dim intSlideNo As Integer
Dim strMoji As String
Dim intMsg As Integer
Dim buf As String
Dim myShape As Shape
Dim strM As String

For Each mySlide In ActivePresentation.Slides 'Slide読み込み
     intSlideNo = mySlide.SlideIndex
     For Each myShape In mySlide.Shapes 'PPT Shape セット
         'Debug.Print myShape.Name
         If intSlideNo > 21 Then
              strName = myShape.Name 'shape名

              Select Case myShape.Name
              Case "text0"
                   strMoji = "(As of " & Format(buf, "YYYY/M/D") & ")"

                  'intlen = Len(strMoji) - 7 '上付き文字位置(st)
                  myShape.TextFrame.TextRange.Text = strMoji    ’テキストにデータをセットする
                 'myShape.TextFrame.TextRange.Characters(intlen, 2).Font.Superscript = True '上付き文字設定(st)
                 Exit For
              Case Else
              End Select
          Else
              Exit For
          End If
      Next
Next

myPres.SaveAs FileName:=ThisWorkbook.Path & "_" & Replace(StartDate, "/", "") & ".pptx" '保存

myPres.Close          '閉じる
myApp.Quit            'アプリ閉じる
Set myPres = Nothing  '変数クリア
Set myApp = Nothing  '変数クリア

End Sub

 

パワーポイントの表にデータをセットする方法

Dim mySlide As Object 'PowerPointスライド
Dim myShape As Shape
Dim strName As String 'シェイプ名
Dim intSlideNo As Integer
Dim strMoji As String
Dim intMsg As Integer
Dim buf As String
Dim strM As String 

''''PPT読み込み
For Each mySlide In myPres.Slides 'Slide読み込み
     intSlideNo = mySlide.SlideIndex
     For Each myShape In mySlide.Shapes 'PPT Shape セット

          'Debug.Print myShape.Name
         strName = myShape.Name 'shape名
          
         Select Case myShape.Name
         Case "Table 6" '表指定
              With myShape.Table '
                   intMaxRow = .Rows.Count    '表最大行数
                   intMaxCol = .Columns.Count  '表最大列数
 
                   Select Case intSlideNo
                   Case 1 'MFG
                        For intNo = 0 To UBound(gstrMFG)
                              .Cell(intRow, intCol - 1).Shape.TextFrame.TextRange.Text = "値取得"         '値取得
                              .Cell(intRow, intCol - 1)TextFrame.TextRange.BackColor.RGB = RGB(0, 0, 0)   '背景色取得                         
                              .Cell(intRow, intCol - 1)TextFrame.TextRange.Font.Color = RGB(0, 0, 0)'表内のフォント色をセットする
               Next
                   End Select
              End With
         Case "Rectangle 3" 'テキスト指定
              intlen = Len(strMoji) - 7 '上付き文字位置(st)
              myShape.TextFrame.TextRange.Text = strMoji
              myShape.TextFrame.TextRange.Characters(intlen, 2).Font.Superscript = True '上付き文字設定(st)
         End Select
     Next
Next

 

表内も番地があります。

.Cell(intRow, intCol - 1)

この記述のintRow 及びintColの中に縦横の番地を指定することができます。

 

表内の背景色を表示する方法

表内の背景色をセットするメソッドは、次のメソッドを使用します。

 

ポイント

myShape.Table.Cell(○○, ××)TextFrame.TextRange.BackColor.RGB = RGB(0, 0, 0)  '表内の背景色をセットする

 

表内のフォントカラーを表示する方法

表内のフォントカラーを取得するメソッドは、次のメソッドを使用します。

 

ポイント

myShape.Table.Cell(○○, ××)TextFrame.TextRange.Font.Color = RGB(0, 0, 0) '表内のフォント色をセットする

 

まとめ

このように、パワーポイントの表やテキストを操作する上で大切なことが、必ず項目の名称を付けることが必要不可欠です。

デフォルトで、「テキスト1、テキスト2等」の名称がついていますが、まずは自分がわかりやすくコーディングできるように名称を付けることで非常に大切であることを覚えておきましょう。

 

大人気自宅飲み放題!多彩なビールをご自宅で楽しめる【DREAM BEER】

楽天おすすめ商品はこちら

人気急上昇中!累計販売数40万本突破『どこでもミラバス』

Copyright© 副業ケアネット , 2021 All Rights Reserved Powered by AFFINGER5.