ついに夏本番!さぁ、家族でキャンプに行くぞ! >>

タイトル通りの質問なんですが、
ワードだとできるので、貼り付けて
みたのですが、貼り付けるともとに
戻ってしまいます。

単に文字を大きくしたいだけではなく、
均等割付のように文字間隔を
変えたいのではありません。

どうすればいいでしょうか?

因みにOfficeXPです。

A 回答 (3件)

ワードの文字書式までコピーするには、ただのコピーではなく、貼り付けの下にある「形式を選択して貼り付け」を選択して、「Microsoft Word文書オブジェクト」を選択して貼り付けてください。

編集も可能です。オブジェクトとして貼り付けるため枠線や背景色が設定されているのでそれらを変更すれば。
エクセルでは文字の大きさはワードほど自由度はありません。
    • good
    • 1
この回答へのお礼

形式を選択して貼り付けは、
こうゆう使い方もできるんですね。
有難うございました。

お礼日時:2003/09/17 17:05

エクセルにはセルサイズに合わせて文字も調整できるので何の為の手段かわかりませんし、好みですが半角文字は見た目も悪い上に読みにくいので個人的には絶対使いたくありません。


#1の方が言うようにワードアートを使えば可能です。
ワードアートで入力して、ギャラリーの中から正対に一番近い形状を選択します。(1番目の者が一番近いように思います。)文字装飾をやり直す必要があればそれをして更に比率の変更もします。
横倍ですと縦の比率を50%、縦倍ですとその逆になります。その際、縦横比のチェックははずす必要があります。
    • good
    • 0

枠にこだわらず、縦長文字、横長文字を作成したデータの印刷に貼り付けるならワードアートで作成して貼り付ける(上に乗せる感覚)で使えます。


エクセルの計算には使えません。あくまで文字の絵です。
    • good
    • 0

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

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

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

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

Q文字の 縦/横の比率 を変更したいのですが。

Windows10 ・Excel。例えば 『あ』の字を画面表示/印刷するとき、縦/横 の比率を変えて、やや平たい横長文字にしたり、上下にひょろ長い縦長文字にしたいのですが、そのような指定をすることができますか? できるとしたら、その指定(操作)方法を教えてください。初心者ですので、操作手順を省略せずに(特にメニュー項目名の指定は省かないで)教えてください。もしそのような操作ができない場合は、フォントの中に、横長文字や縦長文字があったらそのフォント名を教えてください。よろしくお願いします。

Aベストアンサー

エクセル単体でも、コピー&貼り付け(図)にしてしまえば出来ると思います。
適当なセルに あいう と入力、コピー
貼り付けで、ウィザードの下段にある 図 を選択
張り付けてできた図を縦長(横長)にする

Qエクセルの文字を縦長/横長に

今晩です。

エクセルで、文字を変更したいのです。
大きさや、種類等は、変更出来ますが、文字を縦長や横長にしたいのです。又、文字が大きくなれば、文字と文字のの間隔が広くなりまうよね、あれを、調整したいのです。

よろしくお願いします。

Aベストアンサー

挿入→図→ワードアート

これで好きな文字列が、
セルに縛られず伸縮自在となります。

書式設定で細かく文字の線、塗りつぶしなどを
調整もできます。

Qexcelで文字幅(倍率)を指定することはできますか?

wordでは,書式→フォント→文字幅と間隔タブで文字幅(倍率)を設定することができますが,同じことはexcelではできないでしょうか。
ひとつの資料をページによってword又はexcelで作成することがあるのですが,文字自体を大きく(又は小さく)するのではなく,縦はそのままで幅だけを変えたいことがあり,wordではできるけどexcelではやり方が分からなくて困っています。

excelのヘルプなどを見てもよく分からないので,ご存じの方がいらしたら教えてください。
よろしくお願いいたします。

Aベストアンサー

■回答
できません。

文字の横幅を小さくしたいのであれば、図としてコピーした物の横幅を狭くしてはいかがでしょう。
図ですので、計算や関数に使用することはできませんが、見ただけであれば十分使えます。

 幅を狭くしたい文字を入力
 ↓
 入力したセルをコピー
 ↓
 Shiftキーを押しながら、メニューバーの編集をクリック
 ↓
 「図の貼り付け」 を選ぶ
 ↓
 貼り付けられた図の横幅を好みのサイズに変更する
   ↓           ↓
 図を右クリック    四隅の丸いマークをドラッグする
   ↓
 図の書式設定
   ↓
 サイズ
 倍率
 「縦横比を固定する」のチェックマークを外す
 「幅」 を好きなサイズに変更する

Qワードで文字の縦倍率のみ、変更したいのですが。

初心者です。18cm×9cm内のゼッケンにいっぱいいっぱいでおさまるように名前を印刷したいのです。〔苗字と、名前の2行〕
フォントサイズを、46で、500%にし、用紙サイズの設定での余白は2mmくらいに設定しました。
すると、ちゃんとおさまったのですが、
これで、文字がもう少し、縦に大きくなってくれると
ぴったりきそうです。
フォントをこれ以上大きくすると、苗字しか印刷できません。
文字の横幅は、簡単に、ツールバーで、倍になりますが、
縦幅のみ、倍にはできないのでしょうか?
簡単に文字大きさの倍率を設定、変更出来る方法があるのならどうぞ、伝授してください。

Aベストアンサー

もとのフォントサイズが46とのことです。これを2倍の92としてください。その文字(または文字列)を選択して、ツールバーの「文字の拡大/縮小」(Aの上に「・・」のアイコン。その右の▼によってプルダウンメニューで)をクリックして、「50%」を選択してください。

縦2倍で長すぎるようでしたら、任意のフォントサイズにしてください。仮に75とします(数値は、0.5単位で入力、設定可能です)。この場合、46÷75で、60%(概数)倍にすれば、縦75ポイント、横(約)46ポイントになります。この場合、上記プルダウンメニューから、「その他」を選択して、「倍率」を指定してください。

さて、46ポイントで2文字をWORD画面に表示できても、これを92ポイントや75ポイントにすると、1字しか表示できない場合が生じます。このときは、仮に「山田」と入れたい場合、まず「山」だけを上記手順で縦長にしてください。その右に「田」を入力すると、前の設定がそのまま引き継がれ、自動的に縦長になります。

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

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

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

Aベストアンサー

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

Qエクセルで打ち込んだ数字を自動で別シートに表示したい

エクセルでセルに打ち込んだ数字を自動で別シートに表示できる方法があれば、教えてください。

例えば、シート1のC1に5を打ち込んだら、シート2のD2にシート1で打ち込んだ5が自動で表示される。

また1列すべてを自動で表示させる場合、一つのセルの時と違いがありましたら教えてください。よろしくお願いします。

Aベストアンサー

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コピー&リンク貼り付けを使うと便利です。

例)例)シート1のC1~C5に何かを入力したら、
  シート2のD2~D7にシート1で打ち込んだものが自動で表示される

  シート1にあるコピー元のセルを範囲選択して、
  シート2のD2の上で「右クリック」⇒「形式を選択して貼り付け」
  をクリックします。

  そして出てきた小さな画面の左下にある「リンク貼り付け」という
  ボタンをクリックすると完成です。
  試してみてください。。

  念のためにリンク貼り付けを図解しているURLを載せておきます。
  参考にしてみてくださいね。。
  http://www.geocities.jp/office_inoue/excel/eq21.htm

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コ...続きを読む

QVBで横倍角/縦倍角を表示したいのですが

VBでラベルプリンターのイメージ表示みたいなものを作っていますが、
ラベルやテキストボックスに横倍角や縦倍角の文字を表示することは可能でしょうか。

Aベストアンサー

先に回答されている方と同じ理由でやはりピクチャーボックスでの方法です。

'*******************************************************
Option Explicit

Dim OB As Object '表示オブジェクト
Dim FN As String 'フォント名
Dim FX As Integer 'フォントの横サイズ
Dim FY As Integer 'フォントの縦サイズ
Dim cx As Long '表示X座標
Dim cy As Long '表示Y座標

Private Const DEFAULT_CHARSET = 1
Private Const OUT_DEFAULT_PRECIS = 0
Private Const DEFAULT_QUALITY = 0
Private Const DEFAULT_PITCH = 0
Private Const FF_DONTCARE = 0
Private Const LF_FACESIZE = 32

Private Type Size
cx As Long
cy As Long
End Type
Private Type LOGFONT
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation As Long
lfWeight As Long
lfItalic As Byte
lfUnderline As Byte
lfStrikeOut As Byte
lfCharSet As Byte
lfOutPrecision As Byte
lfClipPrecision As Byte
lfQuality As Byte
lfPitchAndFamily As Byte
lfFaceName(LF_FACESIZE) As Byte
End Type
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Declare Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" (ByVal hdc As Long, ByVal lpsz As String, ByVal cbString As Long, lpSize As Size) As Long

Private Sub Command1_Click()
Dim fnt As String
Dim FntSizeX As Integer
Dim FntSizeY As Integer

fnt = "MS 明朝"
FntSizeX = 12
FntSizeY = 12

With Picture1
.FontName = fnt
.FontSize = FntSizeX
Picture1.Print "testてすと"
End With

Set OB = Picture1
'Set OB = Printer
'OB.Print "" 'Printerの場合初めにダミーを印刷しないと印刷されない
FN = fnt

FX = 12: FY = 12: cx = 0: cy = 500: PrintText "testてすと"
FX = 12: FY = 24: cx = 0: cy = 1000: PrintText "testてすと" '縦倍角
FX = 24: FY = 12: cx = 0: cy = 1500: PrintText "testてすと" '横倍角
End Sub

Sub PrintText(text As String)
Dim LF As LOGFONT
Dim IX As Integer

Dim TempByteArray() As Byte
Dim ByteArrayLimit As Long

Dim OldFT As Long
Dim NewFT As Long
Dim rtn As Long
Dim hdc As Long
Dim sz As Size

Dim TppX As Long
Dim TppY As Long

Dim PX As Long
Dim PY As Long

hdc = OB.hdc

If (OB Is Printer) Then
TppX = Printer.TwipsPerPixelY
TppY = Printer.TwipsPerPixelX
Else
TppX = Screen.TwipsPerPixelY
TppY = Screen.TwipsPerPixelX
End If

PX = cx / TppX
PY = cy / TppY
With LF
.lfEscapement = 0 '文字の回転角度(角度*10)

.lfHeight = FY * 20 / TppX '文字の高さ
.lfWidth = FX * 10 / TppY '文字の幅

.lfWeight = 400 '文字の太さ
.lfItalic = False '斜体
.lfUnderline = False '下線
.lfStrikeOut = False '取り消し線

.lfCharSet = DEFAULT_CHARSET
.lfOutPrecision = OUT_DEFAULT_PRECIS
.lfClipPrecision = OUT_DEFAULT_PRECIS
.lfQuality = DEFAULT_QUALITY
.lfPitchAndFamily = DEFAULT_PITCH Or FF_DONTCARE

TempByteArray = StrConv(FN, vbFromUnicode)
ByteArrayLimit = UBound(TempByteArray)
For IX = 0 To ByteArrayLimit
.lfFaceName(IX) = TempByteArray(IX)
Next
End With

NewFT = CreateFontIndirect(LF)
OldFT = SelectObject(hdc, NewFT)

'うまく表示されない場合、下記のコメントをはずす
'GetTextExtentPoint32 hdc, text, LenB(StrConv(text, vbFromUnicode)), sz
TextOut hdc, PX, PY, text, LenB(StrConv(text, vbFromUnicode))

rtn = SelectObject(hdc, OldFT)
rtn = DeleteObject(NewFT)
End Sub
'*******************************************************

フォームにpicturebox と commandbuttonを貼り付けて上記コードを貼り付けて実行してみてください

CreateFontIndirect APIを使用しています。
説明は省きますが、検索すればたくさんあると思います。
No.2の方と同じ様なもので回転も出来ます。
set OB = picture1 を set OB = printer にすればPrinterにも同じ様に印刷されるので、
イメージ表示の感じになるのではないでしょうか?
今回は倍角についての質問でしたので、斜体、下線、太字等の設定は固定にしてあります。

先に回答されている方と同じ理由でやはりピクチャーボックスでの方法です。

'*******************************************************
Option Explicit

Dim OB As Object '表示オブジェクト
Dim FN As String 'フォント名
Dim FX As Integer 'フォントの横サイズ
Dim FY As Integer 'フォントの縦サイズ
Dim cx As Long '表示X座標
Dim cy As Long '表示Y座標

Private Const DEFAULT_CHARSET = 1
Private Const OUT_DEFAULT_PRECIS = 0
Private Const DEFAULT_QUALITY = 0
Private Co...続きを読む

Qexcelからexcelへの差し込み印刷

お世話になります。

excelでwordへの差し込み印刷をよく利用するのですが、
同様に、
excelのデータをexcelに流し込んで印刷する方法はありますでしょうか。

excelの名簿のデータを
excelの表のフォーマットに流し込んで
1人づつ印刷したいのですが。

お分かりの方いらっしゃいました教えてください。
どうぞ宜しくお願い致します。

Aベストアンサー

イメージはわかるが、エクセルに差込印刷の機能はありません。
ワードなどと違ってA.X氏1人分書類シート作成、B印刷、Aのシートををy氏分のデータでシート内容(セル)を置き換え、印刷、の繰り返しをします。
ーー
例データ Sheet1 A1;D3
連番氏名住所品物
1山田 三郎東京都江東区かばん
2植田 健横浜市港北区帽子
A列はこのたび連番を振りました。
Sheet2   に送り状の書式を体裁よく作ります。
H1セル(どこでも良いが、下記のVLOOKUPの式は変わる)

送り状

住所X
氏名Y

品物Z

上記の品をお送り申し上げます。
ご査収ください

以上
Xの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,2,FALSE)
Yの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,3,FALSE)
Zの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,4,FALSE)

---
結果

送り状

住所山田 三郎
氏名東京都江東区

品物かばん

上記の品をお送り申し上げます。
ご査収ください

以上
ここで
VBE画面で標準モジュールに
Sub test01()
For i = 1 To 2 '人数分
Range("H1") = i
Range("A1:G20").PrintOut '印刷範囲は各人同じとする
Next i
End Sub
を張り付け、実行する。
山田、植田分の紙が2枚印刷されました。
これは質問者はVBAの経験も無いでしょうと、最低限にしてあります。
VBAを勉強してください。
別ブックにある名簿を対象などは複雑になるので避けています。

イメージはわかるが、エクセルに差込印刷の機能はありません。
ワードなどと違ってA.X氏1人分書類シート作成、B印刷、Aのシートををy氏分のデータでシート内容(セル)を置き換え、印刷、の繰り返しをします。
ーー
例データ Sheet1 A1;D3
連番氏名住所品物
1山田 三郎東京都江東区かばん
2植田 健横浜市港北区帽子
A列はこのたび連番を振りました。
Sheet2   に送り状の書式を体裁よく作ります。
H1セル(どこでも良いが、下記のVLOOKUPの式は変わる)

送り状

住所X
氏名Y

品物Z

...続きを読む

Qエクセルの文字間を詰めたい

Excel2003を使用しています。

セルの中の文字と文字の間を狭くしたいのですがやり方がわかりません。
文字の大きさは変えたくないんですがWordのように文字数設定はできるのでしょうか?

よろしくお願いします。

Aベストアンサー

Excelには文字間隔の調整機能はありません。
唯一、それに近い事ができるのは「均等割り付け」ですが、これは文字間を
広げる方向には利用できますが狭くはできません。
フォントサイズを小さくする等の方法で対処するしかないでしょう。

QExcelの行列幅をcmで表示したい

Excelの列幅や、行高は、文字数(ピクセル)表示になっていますよね。それを、cm(mmでもOK)単位の表示ができないのでしょうか? 実は公的な書式を作成するため、寸法どおりにしないといけないので、いつも印刷してからものさしで計っては、・・の繰り返しなんです。どなたかアドバイスをお願いします。ジャストシステムの三四郎を以前のパソコンで使っていたときには、それができたんですよ・・

Aベストアンサー

エクセルのバージョンは?
2007ならルーラーの cm,mm の指定は可能ですが・・・
http://www.eurus.dti.ne.jp/~yoneyama/office2007/excel2007-02.html#page_layout

でなければ、
ものさしマクロ
http://hp.vector.co.jp/authors/VA016119/sizemm.html


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

人気Q&Aランキング