忙しい現代人の腰&肩のお悩み対策!

パワポを使ってチラシを作っています。
写真をたくさん使っているのですが、画像を同じサイズにそろえる方法はありませんか?

一つ一つの写真についてサイズを変えるとき、一瞬出る黒い点線(横の画像と同じサイズになると出る)にそろえて、ひとつひとつ合わせていますが、結構面倒です。

一括で同じサイズにそろえる方法があれば教えてください。

このQ&Aに関連する最新のQ&A

A 回答 (3件)

PowerPointのバージョンがわかりませんので、例えば2010/2007などの場合、スライド単位の操作になりますが、ドラッグで全体を囲むか、[Shift]キーを押しながら図をクリックしていき、すべての図を選択します。


図以外が選択されている場合は、[Shift]キーを押しながらクリックして選択を解除し、図だけの選択状態にします。

図だけの選択は、図ツールの[書式]タブの配置にある[オブジェクトの選択と表示]のウィンドウで図以外を非表示に設定することで、スライド上で範囲のドラッグした時に選択されなくなります。

図ツールの[書式]タブのサイズダイアログをクリックして、配置とサイズダイアログの「サイズ」タブのサイズと角度で高さと幅を指定して変更します。
サイズ変更時に、拡大/縮小の「縦横比を固定する」のチェックを外して操作すると、選択しているすべての画像イズが、サイズで指定した同じ大きさに変わります。

スライドが複数ある場合は、各スライドについて同じ操作を実行します。
 
    • good
    • 5

画像サイズはいつも決まったサイズなのでしょうか。


また何通りかの種類があったりするのでしょうか。

そうであれば、マクロを作成して対応するという手が考えられます。
いちいちマクロをメニューで実行するのではなく、ショートカットキーを
割り付けておくのが良いと思います。
画像を選択してから、マクロキーを押せば一発で変更できます。

マクロコード
Sub gazouhenkou()

 With ActiveWindow.Selection.ShapeRange
.Fill.Transparency = 0# '塗りつぶし透過率
.LockAspectRatio = msoFalse '縦横比を変える
.Height = 400 '図形の高さ
.Width = 200 '図形の幅
End With

End Sub
    • good
    • 0

 Word ,Excel , PowerPoint のどれでも


図をまとめて選択して挿入すれば
そのまま四隅のどれかの〇の部分をドラッグするだけで縮小できます。
    • good
    • 1

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qパワーポイントで画像の大きさを揃えたいのですが・

よろしくお願いします

パワーポイントで画像だけを貼り付けて

スライドショーをつくっているのですが

各スライドごとに画像の大きさが違い

困っています

画像の大きさを同じにする方法を教えていただけると
嬉しいです

Aベストアンサー

パワーポイントだけでできる以下のような方法はいかがでしょうか。

1.画像をスライドに貼り付けた状態で右クリック→「図の書式設定」を選ぶ。

2.「サイズ」タブの「高さ」と「幅」に、縦横サイズを手入力する。揃えたい大きさを指定してください。

※ただし、この方法だと縦横比が各画像で違うと、妙に縦長の写真になったり横長になったりする可能性があります。

Qパワーポイントで、図を貼り付けると自動的にサイズ調整

 検索しましたが、うまく見つかりませんでしたので質問します。
 パワーポイントで、別のページから図や数式(数式エディタによるもの)をコピーして貼り付ける場合に、もともとそこにあった表やページのタイトルの大きさが勝手に変化してしまいます。
 崩れてしまった配置や大きさを元に戻すのが大変で、困っています。そのようにならない設定がありましたらお教えください。

Aベストアンサー

お使いになっているバージョンは、2002以降でしょうか?

もしもそうなら、ツールメニューの中の「オートコレクトのオプション」。その中に「挿入したオブジェクトの自動レイアウト」っていう項目があります。チェックが入っているはずですので、それを取ってみて下さい。

解決するといいのですが・・・。

Qパワーポイントで、スライドごとに1枚の図が入ったスライドが100くらい

パワーポイントで、スライドごとに1枚の図が入ったスライドが100くらいあります。
図の大きさを同じに揃えたいのですが、オブジェクトの書式設定で一枚ずつサイズを指定して配置も指定していますが、いつになっても終わりません。
ワードのキーマクロのように同じ繰り返しを簡単にできる技はないのでしょうか。
教えてください。
パワーポイントのバージョンは、2003と2010(試用版)でやっています。

Aベストアンサー

スライド1枚に画像は1つで、先頭のスライドから画像が入っていると仮定した場合ですが、次のような内容のマクロを実行するのはいかがでしょうか。

[Alt]+[F11]で開くウィンドウの[挿入]-[標準モジュール]で表示される画面に以下を記述したら、そのウィンドウを閉じます。
-------- 次行から
Sub サイズ統一()
 Dim myTop, myLft, myHgt, myWdt, cnt, i
 With ActiveWindow.View.Slide.Shapes(1)
  myTop = .Top
  myLft = .Left
  myHgt = .Height
  myWdt = .Width
 End With
 cnt = ActivePresentation.Slides.Count
 For i = 2 To cnt
  With ActivePresentation.Slides(i).Shapes(1)
   .Top = myTop
   .Left = myLft
   .Height = myHgt
   .Width = myWdt
  End With
 Next
End Sub
-------前行まで

1枚目の画像を好みの位置に好みのサイズで置いてから、[ツール]-[マクロ]-[マクロ]から上記マクロ(サイズ統一)を実行します。

スライド1枚に画像は1つで、先頭のスライドから画像が入っていると仮定した場合ですが、次のような内容のマクロを実行するのはいかがでしょうか。

[Alt]+[F11]で開くウィンドウの[挿入]-[標準モジュール]で表示される画面に以下を記述したら、そのウィンドウを閉じます。
-------- 次行から
Sub サイズ統一()
 Dim myTop, myLft, myHgt, myWdt, cnt, i
 With ActiveWindow.View.Slide.Shapes(1)
  myTop = .Top
  myLft = .Left
  myHgt = .Height
  myWdt = .Width
 End With
 cnt = ActivePresen...続きを読む

Qパワポの複数ページにまたがる表の位置を揃えたい

パワポでプレゼン資料を作成中です。
大きい表があって、複数のページにまたいでいるのですが、その表がページごとに微妙にずれてしまい、スライドショーで見ると、毎ページごとに少しずれてしまいます。
どのページもできる限り表の位置を揃える方法はありませんか?

今は、ルーラー、グリッド、ガイドなども使っていますが、ページをまたがるとどうもうまくいきません。。。

Aベストアンサー

> 大きい表があって、複数のページにまたいでいるのですが、その表がページごとに微妙にずれてしまい、スライドショーで見ると、毎ページごとに少しずれてしまいます。
> どのページもできる限り表の位置を揃える方法はありませんか?

お使いのPPTのバージョンが明記されていませんが、2007以降のバージョンをお使いですと、辻のように操作してみて下さい。

1) 表を選択して表示される「表ツール」の「レイアウト」タブ→「配置」グループの「配置」の順にクリックすると、配置のメニューが表示されます。

2) 「スライドに合わせて配置」にチェックが入っていることを確認して、「左右に中央揃え」と「上下に中央揃え」を実行しますと、表が中央に配置されます。
または 「下揃え」の場合は、表の下辺がスライドの下辺に配置されます。

3) 上記を揃えたい表のあるスライドの数だけ配置します。

4) 中央 または 下辺に配置された状態から「↓」キー または 「↑」キーを何回か押して移動します。

5) 同じ操作を同じ回数だけ繰り返しますと、すべての表の位置が揃うと思います。

Qパワーポイントで画像を一括挿入する方法について

パワーポイントに画像を一括で挿入したいと考えています。
ドラッグ&ドロップでは一つずつしか挿入できません。

良い方法を知っていれば教えてください。

よろしくお願いします。

Aベストアンサー

★マークのところはご自分で変えてください。

Sub 画像複数挿入2000_2()
Dim cntL As Integer, cntT As Integer
Dim flgAspect As Boolean
Dim SL As Single, SR As Single, ST As Single, SB As Single
Dim ML As Single, MT As Single
Dim xlApp As Object
Dim dlgOpen As Variant
Dim myPre As Presentation
Dim Sld As Slide
Dim n As Long
Dim i As Integer, j As Integer
Dim sldWidth As Single, sldHeight As Single
Dim realWidth As Single, realHeight As Single
Dim myWidth As Single, myHeight As Single
Dim myLeft As Single, myTop As Single
Dim myPic As Shape
cntL = 2 '★横方向枚数2~6などで変更
cntT = 1 '★縦方向枚数2~6などで変更
flgAspect = True '★縦横比を固定するときはTrue,しないときはFalseで変更
SL = 0 'スライド左余白
SR = 0 'スライド右余白
ST = 0 'スライド上余白
SB = 0 'スライド下余白
ML = 0 '左右間隔
MT = 0 '上下間隔

Set myPre = ActivePresentation
With myPre
sldHeight = .SlideMaster.Height
sldWidth = .SlideMaster.Width
End With
realWidth = sldWidth - SL - SR
realHeight = sldHeight - ST - SB
myWidth = realWidth / cntL - ML
myHeight = realHeight / cntT - MT
Set xlApp = CreateObject("Excel.Application")
dlgOpen = xlApp.GetOpenFileName("gif,*.gif,jpg,*.jpg,jpg,*.jpeg,bmp,*.bmp,png,*.png,wmf,*.wmf,tiff,*.tiff", , , , True)
With myPre.Slides '新規スライド
j = 1
i = 1
Set Sld = .Add(.Count + 1, ppLayoutBlank)
End With
If IsArray(dlgOpen) Then
For n = LBound(dlgOpen) To UBound(dlgOpen)
If i > cntT Then 'さらに新規スライド
i = 1
With myPre.Slides
Set Sld = .Add(.Count + 1, ppLayoutBlank)
End With
End If
myLeft = SL + (j - 1) * realWidth / cntL
myTop = ST + (i - 1) * realHeight / cntT
Set myPic = Sld.Shapes.AddPicture _
(FileName:=dlgOpen(n), _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, _
Left:=myLeft, Top:=myTop)
With myPic
.LockAspectRatio = flgAspect
.Height = myHeight
If flgAspect = False Then
.Width = myWidth
Else
If .Width > myWidth Then
.Width = myWidth
End If
End If
End With
If j < cntL Then '横にずらす
j = j + 1
Else '改行
j = 1
i = i + 1
End If
Next n
End If
xlApp.Quit
Set dlgOpen = Nothing
Set xlApp = Nothing
Set Sld = Nothing
Set myPre = Nothing
End Sub

★マークのところはご自分で変えてください。

Sub 画像複数挿入2000_2()
Dim cntL As Integer, cntT As Integer
Dim flgAspect As Boolean
Dim SL As Single, SR As Single, ST As Single, SB As Single
Dim ML As Single, MT As Single
Dim xlApp As Object
Dim dlgOpen As Variant
Dim myPre As Presentation
Dim Sld As Slide
Dim n As Long
Dim i As Integer, j As Integer
Dim sldWidth As Single, sldHeight As Single
Dim realWidth As Single, realHeight As Single
Dim myWidth As Single...続きを読む

QPowerPoint VBA 画像のサイズ

こんにちは。

PowerPoint2007 VBAで今選択している画像のサイズを
指定のサイズに変える方法を教えていただけないでしょうか。
出来ればコードも書いていただけると嬉しいです

MSDN等調べれば出てくるかとも思ったのですが、
VBA自体をExcelで少し触った程度なので分かりませんでした。

よろしくお願いします。

Aベストアンサー

1個づつでもよければ下記でできます。
WindowとslideがわかればあとはExcelと同じです。

Sub test()
Dim w As Single
Dim h As Single

w = 200
h = 200
With ActiveWindow.Selection
With .SlideRange.Shapes(.ShapeRange.Name)
.Width = w
.Height = h
End With
End With

End Sub

QPowerpointでの画像の大きさについて

Powerpoint初心者です。
この度Powerpointでプレゼンをすることになりました。
50枚程度の写真、エクセルグラフ等です。
画像ファイル(写真)の一枚の大きさはどれくらいがよいのでしょうか?(何Mb?何Kb?)
また、昔の写真をスキャナーで読んでスライド上映するのですが、カラー写真でどれくらいの解像度で読込めば
いいのでしょうか?(何dpi?)
宜しくお願いします。

Aベストアンサー

液晶プロジェクタでの出力であれば、画面解像度は一般的には1024×786なので、当然貼り付ける写真はそれよりも大きくても縮小されます。
ので、単純に考えればそのサイズ以下の写真で十分なんですが。
ところがところがそうはいきません。
単に貼り付けた画像の大きさを全くいじらないのであればいいのですが、多くの場合は画像を縮小したり、回転させたり、トリミングしたりしてレイアウトします。
この場合はある程度画素数の大きな画像(容量が大きい、取り込み解像度が大きい)を縮小してやらないと、画質が落ちます。
つまり次のことが言えます。
1.パワーポイント上で画像のサイズ等を変更しないつもりならば、最初からその大きさの画像を用意する。
(640×480の解像度でも十分に使えます。しかしサイズの変更をしてはいけません)
2.パワーポイント上でサイズの変更をするならば、画面解像度よりも大きなもの(1024×768の画面であれば、200万画素程度)です。
しかしながらこの方法ですとファイルの容量が大きくなり過ぎますので、次へ進みます。
レイアウト等が完成したならば、次の手順を踏みます。
どの図でもいいですから、一つ選択し「図の書式設定」-「図」へいきます。
そこに「圧縮」がありますので、それをクリックします。
「図の圧縮」ななりますから、そこで「ドキュメント内のすべての図」、「Web/画面」、「図の圧縮」、「図のトリミング部分の削除」にすべてチェックを入れれば、ファイル容量は減ります。
ただしこの手はパワーポイント2002以上でないと使えません。
以前に私が回答したものを参照されて下さい。

参考URL:http://okwave.jp/kotaeru.php3?q=1751615

液晶プロジェクタでの出力であれば、画面解像度は一般的には1024×786なので、当然貼り付ける写真はそれよりも大きくても縮小されます。
ので、単純に考えればそのサイズ以下の写真で十分なんですが。
ところがところがそうはいきません。
単に貼り付けた画像の大きさを全くいじらないのであればいいのですが、多くの場合は画像を縮小したり、回転させたり、トリミングしたりしてレイアウトします。
この場合はある程度画素数の大きな画像(容量が大きい、取り込み解像度が大きい)を縮小してやらないと...続きを読む

Qエクセル 表を大きく、紙いっぱいに印刷したい

エクセルで表を作りました。
印刷プレビューで確認したところ
用紙に対して表が小さく見栄えがしません。

一つ一ついじればできると思いますが、
簡単に、
用紙いっぱいにフォントも大きくし、表も大きくし、
印刷するやり方はありますか。
教えてください。

Aベストアンサー

CtrlキーとPのキーを同時に押すと「印刷」ダイアログが呼び出せます。その状態でAltキーとWのキーを同時に押すと「印刷プレビュー」が表示されますので、印刷のイメージがつかめます(必ずしもプレビュー通りには印刷されませんが)
印刷プレビュー画面の上にある、設定のボタンを押してあげれば、余白を少なくしたり、拡大縮小印刷をパーセンテージを指定しておこなえたりします。いずれにせよ、プレビューで確認しながら拡大率を決めていけばいいと思います。なお、「拡大縮小印刷」のところに「次のページ数に合わせて印刷をする」というチェックをいれて横1×縦1にしてあげれば自動で拡大縮小印刷ができる場合がありますが、やってみればわかりますが、特に縮小印刷の場合小さくなりすぎたりする場合もあります。

QWordで、1ページを丸ごと削除するには?

1ページしか必要ないのに、真っ白な2ページ目がその下に表示されてしまった場合、この余分な2ページ目を一括削除(消去)する為に、何かいい方法があるでしょうか?

Aベストアンサー

<表示されてしまった場合>
これはそれなりに理由があるわけで、改ページや改行によって、次のページにまで入力が及んでいる時にそうなります。
特に罫線で表を作成し、ページの下一杯まで罫線を引いたときなどには、よくなる現象です。

さて、メニューの「表示」で段落記号にチェックが入っていないと、改行や改ページなどの入力情報が見えず、白紙のページを全て選択→削除してもそのままということが良くあります。
1 改行マークが白紙のページの先頭に入っていれば、それをBackSpaceで消してやる。
2 罫線を使っている場合は、それでも効果がない場合がありますが、その時は行数を増やしてやる。
などの方法があります。

QWord 文字を打つと直後の文字が消えていく

いつもお世話になっています。
Word2000を使っているものです。
ある文書を修正しているのですが,文章中に字を打ち込むと後ろの字が消えてしまいます。
分かりにくいですが,
「これを修正します。」
という文章の「これを」と「修正します。」の間に「これから」という単語を入れたときに,その場所にカーソルを合わせて「これから」と打つと,
「これをこれからす。」
となってしまいます。
他の文書では平気です。
何か解決する方法があれば教えて下さい。

Aベストアンサー

入力モードが「挿入」(普通の入力)から、「上書き」になってしまっているのだと思われます。
キーボードに[Insert]というキーがあると思いますので、1度押してみてください。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング